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• / Cuy HACHETTE — EOITO / — 

Heureusement, il y a imerique ! 



Que devtendraient les applemania- 
ques sans rapport americain ? oui, 
je sais : la contribution frangaise 
n'est pas negligeable. La preuve : 
Jean-Louis Gassee et quelques 
out res. Nous avons aussi un autre 
exemple, significant personnifie 
par Philippe Kahn, le fondateur et 
animateur de Borland. 

Reste que les applemaniaques heu- 
reux possesseurs d'un Apple II et 
notamment d'un GS, se sentiraient 
terriblement desempares s'il n'y 
avaitpas les U.S.A. 

Parce que la-bas r amie Lecthce, ami 
Lecteur, I Apple il n'est pas mort et 
le GS se porte pi u tot hi en. Les logi- 
ciels destines au beau dernier se 
multiplienf, pour la plus grande 
satisfaction des Francois common- 
dant directement leurs produits 
outre- Atlantique. 

Cote programmafion, go ne va pas 
mat non plus. Merlin PRO-] 6 extste 
et se revel e — 6 combien ! — plus 
simple a utiliser que I'assembleur 
officief du GS. Cote Basic, en plus du 
GS BASIC (que je vous conseille 
d'acquerir sans plus tarder*), on 
n'annonce pas moins de deux Basics 
compiles (rassurez-vous : Us recon- 
naitroni vos programmes en GS 
Basic. . . sauf erreur de ma part). 

Bret on se demande pourquoi le 
reseau Apple frangais n'en fait pas 
plus pour vendre une machine qui 
— fait nouveau (lire /'article de Nes- 
tor) — peut me me se transformer 

— / PACE 2 / — 



en compatible ? Vous connoissez la 
reponse : pour vendre du MAC et 
rien que du MAC. 

Moi f je veux bien. Je possede un 
MAC. Pour etre franc, je dots preci- 
ser qu'il m'a coute une fortune 
puisqu'il provient d'un echange : un 
Mac Plus contre un Lisa... et quel- 
ques mil Hers de francs. 

C'est effectivement une machine 
agreable, sympathique, conviviale, 
mais sans interet (a mes yeux du 
moins) quand elle n'est pas dotee 
d'un disque dur. J'ajoute que les 
augures ne pretent au Mac Plus 
qu'une duree de vie limitee : son 
remplagant est deja dans les vitrines 
et ne coute pas beaucoup plus cher. 

Mais que font les bidouilleurs et 
autres progrgmmeurs d'un MAC ? 
Or, n'en deplaise aux voyants 
extra-lucides des Ulis, cette race 
d'utilisateurs n'est pas encore 
eteinfe. Ni le culte de la vieille 
Pomme. Je me demande meme si, 
demain f on ne reviendra pas a une 
programmation plus simple, plus 
proche du langage machine, sur de 
geniales petites machines, capo- 
hies, grace aux astuces des hom- 
mes, de pedaler comme des 
grandes. 



* GS Basic est diffuse par DDA. 

TREMPUN MICRO puhiie fe premier bouquin 

en frangais permettant d'utifiser GS Basic. 



/ BASiC APPLESOFT / — 



E1CIHD jMWcr^ 



Lo longueur des enregistre- 
ments a volontairement ete 
limit ee a 39 carac feres, mais 
elfe peut etre augmentee. 



*" Memoriser, dans un fichrer 6 acces direct, un certain nombre 
d'enregistrements de 39 caracteres maximum, mais pouvoir les 
retrouver rapidemenf grace a une recherche dans un index des mots-cles. 
Le programme comprend done deux fichiers : 

• FIC qui constitue la base de donnees, 

• IND qui est entierement charge en memoire vive et contient (a liste des 
mots-cles et les numeros des enregistrements correspondents de FIC. 

UMITES : La memoire de la machine... Jl est evident que Ton n*a pas interet 
a multiplier le nombre des mots-cles. Marc frefoye. 



AAO$(N,0) = Mot 
MOS(NJ) = Numero 



Les deux fichiers : 



• IND (sequentiel) 

• FIC (direct) 

sont ouverts ou debut 
du programme. On ne 
les refermera que lors- 
que J'option 5 (FfN DE 
TRAVAIL) sera choisie. 



Remarque 



Le PRINT D$ de la ligne 
140 indique d ProDOS 
que Ton n 'accede plus 
(provisoiremenl) 
fichier ouvert par 
PRINT D$"OPEN... 



au 



HOME : CLEAR 
PRINT D*"PR£3" 



GOTO 560 



100 TEXT : NORMAL 
105 D* = CHR* <4) 
HOME 

110 DIM MOf <500,n 
115 PRINT DVOPEN IND* 
120 ONERR GOTO 135 
125 PRINT D$ " OPEN FIC f L4J 
C,R0" 

130 INPUT NE: GOTO 140 

135 POKE 216,0: PRINT DVWR1TE FIC,R0": 

T NE 
140 PRINT 0% 
145 INVERSE 

: PRINT ■ 

VTAB 2! PRINT 
: NORMAL 
RESTORE iM = I 
VTAB 7: PRINT 



PRINT 



PRINT D$"READ FI 



PRTN 



FOR I = 1 TO 3: FOR J = 1 TO 
a \ ' NEXT ; PRINT j NEXT i 
FICHIER DIRECT INOEXE 



150 
155 



h TEXT 

'II y a "NE" enregistr." 
160 DATA SAISIE,LECTURE,MODIFICATION,MOTS-CL 

ES,FIN DE TRAVAIL, , 
165 V = V 4 2: READ RS: IF R* = "" THEN 175 
170 INVERSE : VTAB V: PRINT (V - 10> / 2;: N 

0RMAL : PRINT " > "R* : GOTO 165 
175 VTAB V: PRINT " "-"Choix: ";: GET R$: PR 
INT : IF RS < "1" OR R* > STR* ((V - 12 



052B 

1201 
F189 
DB13 
82E9 

92C3 
42^1 

D500 
BF22 



4C41 
CD32 
6F78 

8C43 
0D7F 

1851 



— / FICIND / 



) / 2) THEN 175 633E 

180 JF Rt = M 5* THEN TEXT : GOTO 685 3841 

1B5 GOTO 405 1944 

190 : 003A 
195 REM Saisie 

200 : D03A 
205 PRINT "Longueur maximum de chaque donn^e 

: 39 caracteres <1a ponctuation 

est autoris£e>" A5DC 

210 EN = NE 45F6 
215 FOR I = 1 TO 49: PRINT "-" ;: NEXT : PRIN 

T F349 

220* POKE 34, 5: EN = EN + 1 iE% - M " CF61 
225 VTAB 12: HTAB 6: FOR 1 = 1 TO 39: PRINT 

■-■ ; : NEXT : PRINT 9E8D 

230 GOSUB 375 234F 
235 VTAB 12: HTAB 6: PRINT CALL - 657: 

E* = 14 ' 4866 
240 FOR X = 512 TO 551: IF PEEK <X> < > 14 

1 THEN E* = E* + CHRS < PEEK (X> - 128) 

: NEXT E456 

245 IF Ef ■ THEN EN = EN - 1 : GOTO 150 5C5? 

250 GOSUB 375 234F 
255 VTA 8 22: PRINT " <C) ORRECTI ON -:E)NREGISTR 

EMENT ";: GET R*: PRINT EBE1 

260 IF R* = "C OR RS = "c" THEN 230 0F6E 

265 IF R$ < > " E" AND R* < > w e" THEN 150 4812 

270 : 003A 
275 REM Ecriture d'un enreg i strement 

280 : 003A 
285 PRINT DVWR1TE F1C,R"EN: PRINT CHR* <34 

) + E*: PRINT D* C314 

290 IF EN .> NE THEN NE = EN 60 5C 

295 IF CH = 3 THEN GOSUB 650 3C4A 

300 GOSUB 480 FC4C 

305 IF CH = 3 THEN NU = EN: EN = EM: GOTO 150 3BAF 

310 GOTO 220 273F 

315 : 003A 
320 REM Lecture des donn£es 

325 : 003A 
330 UTA8 3; INPUT "Numero a lire ? ";R*:NU = 
UAL <R*>: IF NU > NE OR NU = THEN HOM 

E ! GOTO 150 4C4B 

335 PRINT D$ "READ FIC,R"NU B495 

340 INPUT E* ACED 

345 PRINT D* BF22 
350 EM = EN: EN = NU: GOSUB 375 :NU = EN: EN = 

EM: EM = D2F9 

355 GOTO 150 3341 

360 : 0D3A 
365 REM A-Hichage d'une dor.nee 

370 : D03A 

375 UTAB 12 6605 
380 HTAB ti PRINT EN;: HTAB 6: PRINT E*;: IF 

E* < > "" THEN CALL - 958 601 A 



NE = Nombre de lignes 
des donnees. 



Saisie 



La routine utilisee per- 
met de saisir la ponc- 
tuation, mais elle ne 
filtre pas les caracteres 
de controle. 
Trois phases : 

Saisie de la ligne. 

Enregistrement ou 
correction. 

Choix des mots- 
cles. 

II n'y a pas de controle 
proprement dit de la 
longueur,., mais on ne 
lit que 40 caracteres 
(39 + RETURN), ce qui 
resout le probleme 
(ligne 240). 



Ecriture 



Ne vous inquietez pas 
si votre lecteur de dis- 
quette ne ronronne pas 
a la suite de chaque 
enregistrement. Les 
donnees ne sent co- 
piees sur la disquette 
que lorsque le buffer 
est plein. 



Lecture 



INPUT normal. La ligne 
est affichee et on 
retoume aussitot au 
menu general. II suffi- 
rait de modifier la ligne 
355 pour eviter ce 
"detour" : 

355 GOTO 330 



— / RAGE & / 



/ BASIC APPLESOFT / - 



flff ichage cfu choli 



CH = Code du choix: 

O = Saisie 

© = Lecture 

= Modification 

O = Mots-cles 

© = Fin de travail. 

L'optton 5 est traitee 

par Ja ligne 180. 



Modification 



En cas de modification 
d'une donnee (i! peut 
s'agir d'un remplace- 
meat radical I), les 
mots-cles correspon- 
dants sont effaces de la 
memoire... et rempfa- 
ces par ceux decouiont 
de la nouvelle Jigne. 



Mots-cles 



Le programme decom- 
pose la phrase en M 
mots (3 lettres et au- 
dessus), affiche ces 
derniers et vous pro- 
pose de selectionner 
les numeros qui vous 
conviennent. II faut ter- 
miner par 0. Atten* 
tion ! on peut selec- 
tionner plusieurs fois le 
meme numero. II est 
facile de remedier d ce 
defaut en modifiant 
ainsi la ligne 535 : 
535 IF M$(R}<*"" THEN 
NM = NM + 1 : S = S 
+ 1 : MO$(NAA,0) = 
AA$(R) : M$(R) = "": 
M0$(NM,1) " SIRS 
(EN); GOTO 525 



FEA5 
003A 

003A 

29C4 



385 PRINT : RETURN 
390 : 

395 REM Af 4 ichage du choix 
400 : 

405 FOR I = 24 TO 1 STEP - 1 : VTAB I : HTAB 

27: PRINT CHR* (255);: NEXT : PRINT 
410 POKE 32,30s POKE 33,49:CH = VAL <R*)j I 

F CH < > 3 THEN HOME 9 180 
415 RESTORE : FOR I = 1 TO CH: READ R*: NEXT F0F2 
420 VTAB 1 : FOR I = 1 TO 49: PRINT " ; : NEX 

T : PRINT j YTAB 1 
425 INVERSE : HTAB <49 - LEN CR*>> / 2: PRI 

NT R*: NORMAL 
430 POKE 34,2: POKE 35,23: IF CH < > i THEN 

HOME 

435 ON CH GOTO 205,330,455,585 
440 : 

445 REM MODIFICATION 
450 : 

455 IF NOT NU THEN 330 
440 EM = EN: EN = NU: GOTO 230 
465 ; 

470 REM Mots-cl#s 
475 { 

480 L = LEN <E*);I = 1:M = 0:J = 0:S = 0: Y 

TAB 13: CALL - 958 :K = 
485 K = K + 1:R* - MID* CE^K.l): IF R* < ■ 

A" OR R* > "e* THEN R* = H GOTO 495 
490 IF K = L THEN J = J + J : GOTO 500 
495 IF R* < > « - THEN 510 

500 IF J > =3 THEN M = M ♦ 1 :M*<M) = MID* 

<E*,I ,J) 
505 I = K + 1 : J = : GOTO 515 
5J0 J = J + i 
515 IF K < L THEN 485 

520 VTAB 14; FOR I = 1 TO M: PRINT ]"> "M*<I 
>: NEXT 

525 VTAB 22: INPUT "Numeros retenus (0 pour 

finir): M ;R* : IF R* ■ "0" THEN 540 
530 R = VAL <R*); IF R < 1 OR R > M THEN 52 

5 

535 NM = NM + 1:S = S + l:MO*(NM f 0) = M4(R>: 

MO*(NM t l) = STR* < EN) : GOTO 525 
540 RETURN 
545 : 

550 REM Recherche par mot-cl* 
555 : 

560 POKE 216,0: ONERR GOTO 570 
565 PRINT D* H READ IND" : FOR ] = 1 TO 500: IN 

PUT MO*(I f 0>: INPUT M0*<l f J): NEXT 
570 PRINT D*: POKE 216,0 
575 NM ■ I - 1 : IF NM < 1 THEN NM = 
580 IF NOT CH THEN 120 
585 HOME 



4FB5 

51DD 

DB08 
DDOB 
003A 

003A 
7270 
A7AF 
003A 

003A 

81CF 

9FD3 
69AF 
2881 

0498 
3B6I 
9350 
CF7A 

44C0 

3F55 

03A5 

8F2A 
63B1 
003A 

003A 
67D4 



EA70 
AF0A 
9C91 
1D55 
2F97 



/ PACES / 



/ FIC I NO / 



590 VTAB 22: INPUT "Recherche sur le mot: " ; 

RS AC77 
595 UTAB 5 26D7 
600 IF R* = THEN 150 5D91 
605 FOR J = 1 TO NM: IF MO*<J,0) < > R$ THE 

N 625 1430 
610 EN = YAL (M0$<J f l)) 2851 
615 PRINT DV READ FIC,R"EN: INPUT E*i PRINT 

D$ FBOB 
620 GOSUB 380: PRINT A23F 
625 NEXT J A3CC 
630 GOTO 590 1349 
635 : 00 3A 

640 REM Suppression de mots-cli 

645 ; 003A 
650 I = 6549 
655 3 = 1 + 1: IF MO$(I,l) = STR* < EN) THEN 
FOR J = I TO NM:MQ*(J,0> = M0S<J + 1,0): 
MO*-;j,l) m MO*(J + I f l)|| NEXT J:NM = NM 
-1:1=1-1 B24F 
660 IF I < NM THEN 655 11C6 
665 RETURN 63B1 
670 : 00 3A 

675 REM Mise k jourZ-fermeture des -fichiers 
680 : 00 3A 

685 IF r^lM THEN PRINT Df " CLOSE 1ND" : PRINT D 
V DELETE IND" : PRINT D*"0PEN IND" : PRINT 
DVURITE IND": FOR 1 = 1 TO NM: PRINT M0 
*(I,0): PRINT MQ*CI,1): NEXT 3E94 

690 PRINT DVWRITE FIC,R0": PRINT NE: PRINT 

D$ " CLOSE" D42E 

691 PRINT NM 3955 
695 HOME 2F97 
700 PRINT DV PREFIX/TIP" : PRINT DVRUNMENU" 



Recherche 
par mot clG 



Le programme affiche 
toutes les Itgnes conte- 
nont le mot defini par 
I'utilisateur. On peut 
economiser de la place 
en resserrant les li- 
gnes. Supprimer pour 
cela le PRINT de la 
ligne 620. 



Fermeture 
des ftchlers 



En fin de travail, il faut 
mettre a jour le nom- 
bre d enregistrements 
dans FIC (NE), enregis- 
trer la nouvelle liste 
des mots-cles et fermer 
les deux fichiers por un 
seul : 

PRINT D$"CLOSE" 



/«■/ 
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Christian Renanl 



Explorer 
QuickBASIC 



BCM 
^iie professiMtnclle 



EXPLORER QuickBASIC (Christian Renard) 

Les lecteurs de Tremplin Micro sont en majorite des 
amateurs sinteressant d la programmation et aux langa- 
ges. Nombreux sont ceux qui, dans leur travail, sont 
amenes a utiliser le BASICA et le GWBasic, 
Le QuickBASIC de Microsoft commence aussi a seduire 
bon nombre dadeptes du Basic, sans doute grace a son 
caractere tres professionnel. 

Ce livre beige fait le point et montre bien comment tirer 
le maximum de profit du QuickBASIC .. et notamment de 
ses possibilites cachees. 

Une disquette (contenant programmes et utilitaires) est 
disponible. 

BCM (Belgique) distnbue en France par le PSI — 256 pages. 165 FF 77C 
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• EXPLORING 
THE APPLE IIGS 
(Gary B. Little) 

Vous etes I'heureux possesseur dun 
Apple fIGS tout neuf, mais un peu 
mysteVieux... et la "litterature" concer- 
nont fa machine vous a laisse sur votre 
foim ? Si vous prottquez I'anglais, 
offrez-vous cet ouvrage de Gary B. 
Litlle et portez a la decouverte de votre 
GS en douze chopitres... complete* par 
huit appendices renfermant un maxi- 
mum d'informotions. Je crois que la 
simple enumeration des sujets abordes 
saura deja vous mettre I'eau 6 lo Dou- 
che : Explorer I'Apple IIGS, Program 
mer le 65816. Utiliser les outils, 
Memory management, Event manage- 
ment, Fenetres et Grophiques, Menus, 
Accessoires de bureau, ProDOS 16, 
Son et musique. , , 

J'ai du en oublier quelques-uns, mo is 
ce n'est pas grave. Le bouquin est bien 
presente, abondomment documents, 
et on y trouve evidemment des exem- 
pts fort interessants. 

Je souhaite qu'il soit bientot traduit 
en franc,ais a I'intention des utilisa- 
teurs qui restent allergiques 6 
I'anglais. Etude attentive (et instruc- 
tive) 6 conseiller oux autres ! 

Addifcr-Wnfof Pvbliihina Company 

De tatresseslraal 90 1071 PJ AMSWtDAM Poys-Sos. 



• SOS GW/PC BASIC 

Vaste programme que de retenir les 
230 instructions et fonctions de t inter- 
preter GW 8ASIC de Microsoft. 

Dans 505 GW PC BASIC, toutes les 
instructions et fonctions existantes 
sonl regroupees par families. Chacune 
est suivie des pararnelres necessoires, 
Un court descriptif explique brieve* 
rnent Taction de ('instruction, ainsi que 
les conseils sur son utilisation prati- 
que. La recherche est racilitee par lo 
presence d'une table de reference et 
d'un index, 

Bien sur, ce guide est destine au pro- 
grammer oyont dejd assimile les 
bases du langage BASIC ainsi que le 
systeme d'exploitation MS DOS. 

ISO page* 99 F fK EDITIONS HK*0 APPtfCA T10N 

13, rue Somie CecSe 7S0Q9 PARIS Tel rtj 47.70.3244 



SOS 




LU 



mm 



• SOS MS/DOS 

Realise pour les utilisateurs du 
systeme d'exploitation MS. DOS 3.3 el 
anterieur, ce guide n'est pos un ma- 
nuel de reference du MS/DOS, mais un 
aide-memoire DOS. 



Complet, 505 MS-DOS presente par 
ordre olphobetique toutes les common- 
des DOS. Meme les fichiers Batch et le 
I ichier CONFIGSYS y sont deroilles. 
Pour lous les programmers desireux 
de conserver une certaine portability a 
leurs logiciels, SOS MS DOS donne 
la liste des interruptions MS DOS. 

210 pages. 99 f TIC BJtWNSMIOlOAPPLKA TtOfi 

13 rue $oi.»te-Cecifs 75009 PARIS - TH. f/J 47.70.32.44. 



• LES DISQUES DURS 
DES PC & COMPATIBLES 
(Jonathan Kamin) 

Void un ouvroge destine 6 tous les infor- 
maticiens trovaillanf dons un environne- 
ment MS-DOS ovec un djsque dur, II pre- 
sente les differentes strategies d' organi- 
sation d'un systeme informatique avec 
les poinls suiwants 

— les disques durs ; comment les orga- 
niser et les gerer 

— lo configuration el lo maintenance du 
systeme 

— les procedures d'archivage et de 
sauvegarde 

— I'utilisotion de la memo ire etendue 

— I'utilisotion de logiciels residents en 
RAM et la limitation des conflits 

— I'organisation des menus systeme. 
Des renseignements utiles opparaissent 
tout au long de I'ouvrage, comme la mise 
en ceuvre du Fichier AUTOEXEC.BAT, la 
definition d'un chemin d'occes, lo cons- 
truction de repertoires orborescents, io 
mise en ceuvre des disques virtuels 
I'optimisotion des temps de chargemenl 
de fichiers, etc. L'ouvrage presente aussi 
de nombreux programmes pour la plu- 
part des fichiers Batch, mais aussi des 
fichiers ecrons et macro utilises pour la 
gestion du clavier. Bien qu'il soil fait refe- 
rence 6 la version 3.2 du DOS, tous les 
concepts presenter sont applicables a des 
versions anlerieures el les quelques cas 
specifiques a la version 3.2 sont toujours 
precedes d une mise en garde. Jonathan 
Kamin est dipldme de I'Universite de 
Princeton. II esl I'outeur de nombreux 
ouvrages porus aux editions Sybex. 
SYBiX. 6-8 Impasse du Cure, 75018 PARIS — 
Tel. (1)42.03.95.95. 430 pages 778 F 
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LaserWriter li 



UNE NOUVELLE 
FAMILLE 
D'IMPRIM ANTES 



Les imprimantes LaserWriter 
IISC, LaserWriter IINT et Laser- 
Writer IINTX remplacent le 
modele LaserWriter Plus. Elles 
apportent de nauvelles possibili- 
tes d'impression, une vitesse 
accrue ainsi que d'importantes 
capacifes d'extension. 

La conception modulaire de la nou- 
velle famille LaserWriter II, cons- 
truite autour du meme bloc moteur 
Canon LPB-SX, permet de progres- 
ses simplement et economique- 
ment d'un modele a un autre selon 
les besoms de I'utilisateur. 

Une famille de trois imprimantes 

Une imprimante LaserWriter II est 
constitute d une partie commune a 
toute la famille : la carrosserie con- 
tenant le bloc moteur Canon LPB-SX 
imprimont 8 pages par minute avec 
une resolution de 300 points par 
pouce, chaque modele oyant une 
carte controleur qui en definit les 
caracteristiques specifiques. 

L'imprimante LaserWriter IISC 
(pour "interface SCSI") est le 
modele d'entree de gamme, non 
partageable. Le traitement des 
textes et des graphiques est rea- 
lise par les routines internes de 
Macintosh : QuickDraw, 



L'imprimante LaserWriter IINT 
(pour "He Tworkable") est fonc- 
tionnellement equivalente a la 
precedente LaserWriter Plus. La 
memoire vtve a ete ougmentee de 
25% , procurant ainsi un gain de 
vitesse de 25 a 40 % suivont les 
utilisations. EHe integre la der- 
niere version du langage de des- 
cription de page PostScript, 

L'imprimante LaserWriter IINTX 
(pour "Ne Tworkable and expan- 
dable") est fa premiere impri- 
mante laser du morche a etre 
construite autour du microproces- 
seur Motorola 68020. 

La LaserWriter IINT est une impri- 
mante de haute performance. 2 6 4 
fois plus rapide que l'imprimante 
LaserWriter Plus et beneficiant 
egalement d'tmportantes capaci- 
tes d'extension (memoire, polices 
de caracteres...). Comme le 
modele LaserWriter IINT. l'impri- 
mante LaserWriter IINTX est porta 
geable sur le reseou Apple Talk et 
contient egalement la derniere 
version de PostScript. 

Les imprimantes LaserWriter II 
sont desMnees 6 la famille Macin- 
tosh (Macintosh Plus, Macintosh SE 
et Macintosh II) ainsi qu'a I'Apple 



LaserWriter use 



Le modele d'entree de gamme : 
LaserWriter IISC. sodresse a I'utiliso- 
teur independant pour de ['edition per- 
sonnel^ de base (correspondence 
sophistiquee, memo, presentations, 
rapports, mise en page de base). 

L imprimante LaserWriter IISC est 
ideale pour I'utilisateur qui, tout en 
demandant une haute qualite 
d'impression, ne recherche ni I'utili- 
sation en reseou, ni I'impression de 
textes et graphiques complexes. 

L'impression pleine page esl obtenue 
par I'utilisotion du langage Quick- 
Draw, residant dans taut Macintosh. 



L'imprimante LaserWriter IISC esl 
construite autour du microproces- 
seur 680GG Motorola et comprend 
IMo de RAM necessaire pour une 
resolution de 300-dpi lout en conser 
vant une grande vitesse de sortie. 
Quatre polices a integrer au systeme 
de Macintosh sont livrees avec 
l'imprimante : Times, Courier, Hel- 
vetica et Symbol, disponibles du 
corps 9 au corps 24. 

Une inlerface SCSI permet un trans- 
fert de donnees accelere pour une 
impression ropide ainsi que la flexi- 
bility pour chamer jusqu'a 6 
peripheriques. ■ 



IIGS dans le cadre de certaines 
applications. 

Les ulilisareurs MS-DOS et OS 2 
peuvent egalement imprimer sur 
LaserWriter IINTX ou LaserWriter 
IINT, soit par hntermediaire de la 
carte Apple Talk PC. soit grace aux 
modes emulations quautorisent 
les deux imprimantes. 

"Notre succes croissant dans les 
Entreprises, I'Administration et 
I'Education Universitaire ne tient 
pas seulement a Macintosh mais 
aussi aux imprimantes LaserWriter 
et a leur utilisation generalisee 
comme out il universel de producti- 
vite", rappelle S^bastien Sisom- 
bat, Directeur du Marketing 
d'Apple France. "L'arrivee de la 
nouvelle famille de LaserWriter 
souligne la volonte d'Apple de res- 
ter leader dans I'edition person- 
nels, taut en apportant une ame- 
lioration constante de la qualite 
d'impression et cela pour un plus 
grand nombre d'utilisateurs." 

Un nouveau bloc moteur pour 
la famille LaserWriter II 

Construites autour du nouveau 
moteur Canon LPB-SX, les impri- 
mantes LaserWriter II impriment a 
une vitesse d'entralnement de 8 
pages par minute, avec une reso- 
lution de 300 points par pouce 
(dpi). Leur duree de vie de 309000 
pages represenfe le triple de celfe 
de l'imprimante LaserWriter Plus. 
deja connue pour sa fiabilite. La 
qualite des noirs et des aplats a 
aussi ete omelioree ainsi que la 
duree de vie de leur cartouche 
d ene re ( + 25%). 

La confenance du bac a papier en 
format A4 a ete accrue, elle passe 6 
200 feuilles. Un bac a papier pour 
formal americain (lettre US) ainsi 
qu un bac a papier a enveloppes 
pouvant accepter jusqu a 15 envelop- 
pes sont egalement disponibles Un 
chorgeur manuel reglable du format 
lettre au format enveloppe est ega- 
lement disponible. 



/ PACES / 



IM PRIM ANTES / — 



LaserWriter hmt 



Imprimante de haute perfor 
mance, a un cout inferieur 6 celui 
de la LaserWriter Plus d'Apple. 
I'imprimante LaserWriter I INT peut 
etre utilisee de fagons variees, de 
lo simple correspondence 6 des 
presentations complexes. Efle 
repand parfaitement aux attentes 
de petits groupes de travail grace 
a ses possibilites de mise en 
reseau, 

Construite autour du microproces- 
seur 68000 Motorola, I'imprimante 
LaserWriter IINT dispose de 35 
polices de caracteres en standard 
et d'une architecture Apple Talk 



permettant le portage en r^seau. 
Une architecture mode emula- 
tion Diablo 630 permet la compa- 
tibility avec les systemes MS- 
DOS et OS/2 et un port serie RS- 
232 autorise la connection avec 
d'autres ordinateurs. 

L imprimante LaserWriter IINT uti- 
lise generalement la derniere ver- 
sion de PostScript ; elle comporte 1 
Mo de ROM et 2 Mo de RAM. 

Ce gain de memoire permet une 
augmentation de lo vitesse d im- 
pression ainsi que le telecharge- 
ment de polices de caracteres. ■ 





frix et dlsoonibilite 

Limprimante LaserWriter IINT est 
disponible au loncement et les 
imprimantes LaserWriter IISC et 
NTX le seront en mars. 

LaserWriter IISC : 19900 F HT 
LaserWriter IINT : 29900 F HT 
LaserWriter IINTX 39900 F HT 

La LaserWriter Plus n'est plus 
livree, mais Apple continue den 
assurer le service Apres Vente. 

Par la suite, cette base insfallee 
beneficiera de revisions du sys- 
feme des drivers d'impression. 



Enfin, le bloc moteur est moins 
volumineux et plus leger (20,5 kg) 
que le modele precedent {32 kg). 

Une architecture modulaire 

La principale coracteristique de la 
famille LaserWriter II reside dans 
son architecture modulaire. Les 
trois imprimantes partagent une 
plote-forme commune et peuvent 
etre converties au modele supe- 
rieur par un concessionnaire Apple 
par simple changement de la carte 
contrdleur ce qui preserve ainsi 
les investissements initiaux. 

"Associees aux Macintosh, les 
nouvelles LaserWriter II amelio- 
renl les possibilites d integration 
de systeme donnant oinsi aux utili- 
sateurs Apple une solution homo- 
gene, qui est actuellement la plus 
simple a utiliser et la plus perfor- 
mante", commente Jean-Louis 
Gossee. Senior Vice President 
d'Apple, en charge de la Recher- 
che et du Developpement. "Apple 
cree un nouveau standard dans 
I'impression laser avec I'introduc- 
tion de Timprimante LaserWriter 
IINTX basee sur le microproces- 
seur Motorola 68020, tenant ainsi 
une fois de plus ses promesses de 
proposer 6 ses ulilisateurs des pro- 
duits ioujours plus performants. 
Avec I'arrivee de la LaserWriter II, 
Apple propose une large gam me 
d'imprimantes laser totolement 
moduloble". , 



LaserWriter umtx 



Limprimante LaserWriter IINTX 
repond aux besoins en rapidite et 
en volume des groupes de travail. 
Elle est egalement d meme de pro- 
duire les textes et graphiques 
sophistiques qu attendent les gra- 
phistes professionnels. 

Construite outour du microproces- 
seur Motorola 68020 , 6 16,5 Mhz, 
cette imprimante est jusqu d 4 fois 
plus rapide que I'imprimante 
LaserWriter Plus. L'imprimanfe 
LaserWriter IINTX utilise PostScript 
comme langage de description de 
page, ce qui permet d'imprimer des 
textes et des graphiques sophisti- 
ques et de tres houte qualite. 
La configuration standard Laser- 
Writer IINTX comprend 1 Mo de 
ROM, 2 Mo de RAM. 35 polices de 
caracteres. L architecture Apple 
Talk autorise le partage en reseau 
de l imprimante. 

Limprimante LaserWriter IINTX a 
trois possibilites d'extension ; addi- 
tion de ROM. extensibility de la RAM 
jusqu'a 12 Mo et possibility de chai- 
ner un ou plusieurs disques durs, 
Des cartes d'extension de polices 
de caracteres. proposees par des 

f>artenaires, peuvent etre instal 
ees directement sur le connecteur 
de la carte controleur. augmentant 
ainsi le nombre de polices de ca- 



racteres residentes dans la ROM. 
Les caracteres pouvant etre toute 
forme de graphique, ces cartes 
d'extension de polices peuvent 
etre utilisees pour stocker les 
logos ou des marques deposees. 
La RAM interne peut etre etendue 
de 2 6 12 Mo. Cette augmentation 
de memoire ameliore la vitesse de 
traitement de f impression, lo pos- 
sibility de telechargement de poli- 
ces de caracteres et permet de 
conserver en memoire sous forme 
de bitmaps des polices de caracte- 
res en prevision d'utilisations 
futures. 

Un ou plusieurs disques durs SCSI 
peuvent etre chames directement a 
I'imprimante ; pilote par celle-ci, 
I'utilisateur dispose d'une vaste 
capacite de stockage pour des poli- 
ces de caracteres supplementaires, 
tout en y accedant rapidement . 

Limprimante LaserWriter IINTX 
possede un port serie RS-232 pour 
la connection avec d'autres ordina- 
teurs. Elle offre egalement la pos 
sibilite de trovailler en mode emu- 
lation Diablo 630 ainsi qu'en mode 
emulation LoserJetPlus, assurant 
de cette fa<;on I'ouverture avec 
deux des imprimantes les plus uti- 
lisees dans I'univers MS-DOS et 
OS/2. . 
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— / NESTOR — LANCACE MACHINE / 



CLASSEMENT -BUF 

QUESTION ; Comment saisir un texte et h reafficher instantanement, mais avec tous 
ses elements tries, suivant leur valeur ASCII, en commencant par la plus 
petite, et ainsi de suite ? 



4 . .., . — — i - 

(30/0300 : 


2Q 


58 


FC 


JSR 


FC58 


VIDER L'ECRAN (FAClf LTATIF) 


* 

00/0303 : 


20 


6F 


FD 


JSR 


FD6F 


5AISIE " — 

Saut d (NPUT ($FD6F). 


00/0306 : 


86 


06 




STX 


06 


A IQ SOfTI&j 1 □ longueur cai uuna f\ - 














DEBUT DU TRI — 


* — 

00/0308 : 


A0 


00 




LDY 


£00 


Y serf de pointeur pour le tri. 


00/030A : 


84 


07 




STY 


07 J 


00/030C : 


BO 


00 


02 


LDA 


0200.X 


Valeur de rang X... 


00/030F : 


DD 


FF 


01 


CMP 


01FF.X 


comporee a valeur de rang X - 1 . 


00/0312 : 


BO 


ac 




BCS 


0320 e + 0Ce 


Si plus grande ou egale. saul. 
PERMUTATION — 


* 

00/0314 [ 


BC 


FF 


01 


LDY 


01FF.X 


Valeur X - 1 dans Y. 


00/0317 : 


9D 


FF 


01 


STA 


01FF.X 


Valeur X dans X - 1 . 


00/031 A : 


98 






TYA 




Y dans A. 


00/031 B : 


9D 


00 


02 


STA 


0200.X 


Valeur X - 1 dans X. 


00/031 E : 


E6 


07 




INC 


07 


Pointeur increment©. 


00/0320 : 


CA 






DEX 




x = x - 1 . 


00/0321 : 


D0 


E9 




BNE 


03OC e-17e 


Si x est different de 0, encore... 


00/0323 : 


A6 


06 




LDX 


06 


Sinon x retrouve so valeur maxi. 


00/0325 : 


A5 


07 




LDA 


07 


Si le pointeur est a 0. pas de permuta 


00/0327 : 


DO 


DF 




BNE 


0308 e-21e_ 


tion : tri termine. Sinon ca report. 

REAFFICHACE 


• — — — — 
00/0329 : 


9D 


01 


02 


STA 


0201, X 


a la suite du texte, dans le buffer. 


00/032C : 


AO 


02 




LDY 


£02 


Partie haute de I'adresse dans Y. 


00/032E : 


4C 


3A 


DB 


JMP 


DB3A 


Affichage de la chaTne pointee par Y et A. 


D6sossemblage sur 


GS 








BSAVE CLASSEMENT-BUF, A$300, L$31 



UTILISATION: BRUN CLA SSEMENT. BUF ou BIO AD, puis CALL 768 a partir d'un pro- 
gramme en Basic. 

REMARQUE : $DB3A affiche une chatne pointee A (partie basse) et Y (partie haute) et 
term i nee par (ou "). 

EXEMPLE (les espaces — CHR$(32) — sont evidemment en fete) : 
COMMENT ETRE CERTAIN d'etre le premier ^ 13 heures ? 

' 1 3?«iACCEEEE 1 MMNNORRTTTde e eeeeeh i lmpr rrrstu 

— / PACE tO / "* 



— — ^ — — — / Yvan KOENtG — APPLE He, lit, lies / — 

IM0HT tflf Olff <fe I4if 



Dans Trempfin Micro n°16, /e vous avals propose une formule permettant d employer la 
bonne vieille routine de LAM $ur voire GS tout neuf. Ne croyez pas au Pere Noel, la nou- 
velle Rom de la machine n'a rien change sur ce point. Par contre t j'ai encore gratte mes 
meninges et les entrailles de la bete (a moins que je n'aie fait I'inverse) et je vous apporte 
une solution TOUT BASIC 



Regardons le programme iiste ci-dessous : 

Lorsque la ligne 40 a copie la chaine dans le tam- 
pon d'input, e'est la ligne 45 qui s'execute, puis 
la ligne 50. Or, celle*ci confient delibe>ement 
une erreur de synfaxe. Asoft nous envois alors 
en HANDLERR ($F2E9)... ou le pointeur de pile 
(range par NEWSTT en $F8) est copie bien d I'abri 
en $DF. Nous executons ensuite le CALL-144 
puis CALL 62248 ($F328) recupere le pointeur de 
pile sauve en $DF. La classe non ? 

Je dois remercier Open-APPLE qui m a mis sur 
la voie en signalant que la mise en place de la 
bonne vieille routine de correction de pile propo- 
see par APPLE il y a bien longtemps etait inutile 
puisque CALL 62248 nous dispense d'implanter 
ladite routine, et fait le travail a sa place. Rappe- 
lons au passage que les possesseurs d'un 
ITT2020 sont pries de s'abstenir de manipuler la 
pile en cas d'erreur. L'instruction TXS omise dans 
['APPLESOFT existe dans le PALSOFT. 



1 REM 

2 REM 

3 REM 



BUM 



20 FOR PASS = 1 TO 20 

30 HEX$ = "1000;4CS8FF" 

31 GOSUB40 

32 PRINT "PASS: "PASS 

33 NEXT: END 

40 HEX$ = HEX! + " N D823G"; FOR I = 1 TO 
(HEX$); POKE 511 + I, ASC ( MID$ (HEX$, 
+ 128: NEXT : POKE 72,0 

45 ON ERR GOTO 70 

50 HOM : REM faute d'orthographe deliberee 

70 CALL-144 

75 CALL 62248 

80 POKE 126,0 

100 RETURN V van KGENiG — S dtnmbra 



LEN 



1HT 



Une simple demo ne me semble pas suffisante. 
Je reprends le texte d'un article oublie dans les 
tirotrs presentant un remede a un vieux BUG du 
BASIC. SYSTEM et vous off re la mise en place de 
ce patch a I'aide de la routine de LAM (pro* 
gramme Basic PR0.LAM2). 



Bug BASIC. SYSTEM 



Depuis plusieurs mois, le bug du BASIC. 
SYSTEM 1.1 refatif aux fonctions CHAIN et 
STORE fait I'objet de tentatives de corrections. 
Je souhaite apporter ma contribution qui, me 
semble-t-il, regie complement le probleme. 
Helas ! cela me conduit a vous demander de 
modifier legerement les patches que je fais 
dans la disquette THGS. 

©Modifications de mon patch 

Le catalogue de BASIC. SYSTEM n'affichait 
pas AuxType pour les fichiers de type '$xx . 
Avec un petit patch, cette lacune est com- 
blee et vous pouvez identifier les fichiers 
images lors du CATALOG. 

BEDF : JSR A612, LDY £4E, LDA £D8, RTS 
A4F2 : JSR BEDF, BNE A516 

©Correction de CHAIN 



A01D: 


20 47 AO 


JSR $A047 


A044 : 


A9 07 


LDA £$07 


A046 : 


2C 


(BIT) saute instruction 






suivante 


A047 : 


A9 03 


LDA £$03 


A049 : 


20 E7 BE 


JSR $BEE7 


A04C : 


EA 


NOP 


A04D 


EA 


NOP 



(suite page )2) 
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/ Yuan KCENtC — APPLE lie, lie, lies / 



©Correction de CHAIN 



(suite] 



BEE7 

BEE A 

BEEC 

BEEF 

BEF1 

BEF4 



8D 83 
A9 00 
8D 83 
A9 03 
8D 7E 
60 



A3 



BC 



BC 



STA SA383 
LDA £00 
STA £8C83 
LDA £$03 
STA $BC7E 
RTS 



Toutes rnes excuses d APPLE : pour corriger ce 
BUG exasperont, j'ai pris la liberte de suppri- 
mer un 'COPYRIGHT APPLE, 1983". mais il 
n'etait pas question que j'aiile dans le trou 
connu du B.I ou Sandy AAossberg a deja 
implante un patch INDISPENSABLE de la com- 
mande BSAVE (cf. NIBBLE V7, N8, p93). 



REM ************ 
REM * PRO . LAM2 * 
REM #*****»****#c_t J 
HOME 



'Utilisons U routine de LAM pour patcher BASI C .SYSTEM . " 



1 

2 
3 

10 TEXT ; 
20 PRINT 

40 HEX* = "A01D:2Q 47 AO N A044:A9 7 2C A? 3 20 E7 BE EA EA r 

200 
45 HEX* 
50 HEX* 
60 HEX* 
65 HEX* 



G0SUB 



7E BC 60" : GOSUB 200 



GOSUB 200 



*BEE7;8D 83 A3 A? 8D 83 BC A9 3 
1 B1D9:20 55 B6" : GOSUB 200 
"6621:20 70 BE B0 5 A9 FF 8D 44 BE 60": 

■B62C:A9 1 8D 4F BE AD 57 BE 29 1 18 F0 ED A9 83 C8 BE 8 
D C9 BE 8D CA BE A9 CE DO D9" : GOSUB 200 
70 HEX* = "B648:0 000000000000": GOSUB 200 
80 HEX* = "B655:AC BB BC AD OA BC C9 FF DO 6 68 68": GOSUB 200 
190 PRINT "J'ai fini, au revoir.": END 
200 HEX* ■ HEX* + " ND7D26" : FOR I = I TO I EN (HEX*) 
28 + ASC C MID* (HEX*, 1,1)): NEXT : POKE 72,0 



POKE 511 + 1,1 



210 ONERR 
220 HOM 
230 CALL 



GOTO 230 



- 144; CALL 62248: POKE 216,0: RETURN 



1C5A 
D8AE 

CA3C 
AB77 
9A47 
CFBC 

91E5 
56A7 
BDBD 
A400 

F382 
96E5 
8AE4 
C78D 



0UAND ATARI FRANCE SOME LA HLEVISIOH... 



A TARl etend son audience a un plus 
large public avec la diffusion d'un 
film publicitaire tres remarque. 

Ce film tele est du au talent du celebre 
realisateur international Jean-Baptiste 
MONDINO. II o pour but de presenter 
les ordinateurs ATARI com me des 
armes dons la competition : "Au- 
jourd'hui, la competition commence 
tres tot et ne s'arrete jamais. Mais, 
sans arme, pourrons-nous longtemps 
hire face ? ". 

I! fraduif la valonte d ATARI de 
mieux faire connaitre ses produits et 
de les imposer sur tous les marches 
de la microinformatique. 

ATARI renfarce oinsi son action dans le 
domoine professionnel avec la com- 
mercialisation de sa configuration MEGA 



LASER comprenant : I ATARI MEGA ST 2. 
un ecran monochrome haute resolution, 
une imprimante laser et la garantie d'un 
an avec maintenance sur site, au prix 
revolutionnaire de 21 9Q9FHT. 

Le marche de la micro-edition laser est 
appele a un tres fort devefoppement 
dans les prochaines annees car le 
niveau de quality de ('impression laser 
est tel que plus personne ne pourra 
s'en passer. 

ATARI propose, des aujourd'hui, 
cette qualite a un prix particuliere- 
ment competitif et accessible, 

Sur le theme ; "La Revolution Laser, 
test de faire d'une simple feuille de 
papier une arme dans la competi- 
tion". ATARI s'attaque a la his au 
marche de la PAO et de la micro- 



edition ainsi qu'au marche de la 
bureautique et du traitement de 
texte avec impression laser. De cette 
facon, ATARI s'adresse. pour la pre- 
miere fats, 6 tous les milieux profes- 
sionnels, depuis les professions libe- 
rales jusqu dux grandes societies, en 
passant par les PME/PML 

Rappehns que beneficiant des der* 
nieres innovations technologiques 
en mafiere d'impression laser, 
I imprimante laser ATARI est directe- 
ment pilot ee par le Mega ST auquel 
elle emprunte la capacite memoir e 
necessaire d ('execution des travaux 
d'4dition. 

Sans s 'encombrer d'aucune electron!- 
que couteuse. elle tire profit de toute 
la puissance et de la rapidite de trans- 
fert des donnees du Mega ST pour edi- 
ter, dans un temps record, les pages 
graphiques les plus complexes. 
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^ ^ — ■ / NESTOR — APPLE HCS / — 

J'ajjonfjemon Apple lies 

avec un disque dor Winchester 3.5 de 20 Mo / 



Figurant au nombre des opplemaniaques confronts 
qui ont acquis leur Apple f!GS au prix fort, j'ai eu 
I'insigne avantoge d'essuyer les platres. Le service 
commercial de la firrne pretendra sans doute que 
les nouvelles versions des premiers logiciels 
bogues ont ete gratuitement mises a ma disposi- 
tion. II ajoutera que lo ROM 1987 figure oussi dons 
la corbeille de cadeaux genereusement distribues 
por Apple a tous les possesseurs de machines 
defedueuses. 

Peut-etre. Que mes compagnons d'infortune, 
oublies par la machine a adresser d'Apple 
France ou par celle de leur concessionnaire, 
levent la main ! J'iroi plus loin : organisons un 
defile des plus satisfoits d'entre nous de l outo- 
route A10 jusqu'aux Ulis. Je ne pense pas qu'il 
soit dans ce cas necessaire de deplacer un seul 
representant de lo gendarmerie nationale : 
aucun embouteillage d redouter. Ah ! s'll s'agis- 
sait de regrouper les decjjs,., 

Bref ! vous avez devant vous un "jeune" homme 
peu encHn d desserrer les cordons de sa bourse 
en faveur de sa danseuse en Technicolor : 
I Apple HQS. 

N'empeche qu'il I'a fait. D'abord parce qu'il lit 
Trempfin Micro, la seule revue au monde d avoir 
consacre, a I'heure ou j'ecris ces lignes, autant 
de pages au GS. Eh oui ! il y a la-bas des gens qui 
ne desesperent pas de faire changer les mecon 
tents de camp, au grand desespoir d'Apple 
France qui prefererait sans doute que Ton oublie 
son enfant cheri d'hier, et au grand dam de cer- 
tains concessionnaires, plus chauds pour vendre 
un Mac que la bebete qu'ils n'ont meme pes pris 
la peine d'apprivoiser. 

J'al man disaue dur 

Passons. Qu'est-ce que je dirais si j'avais achete 
un Lisa ! Lui, au moins, possedait un disque dur. 
Mon GS aussi, mais e'est grace d 1'initiative d'un 
homme dont on ne dira jamais assez tout ce qu'il 



fait pour les possesseurs d'Apple // ; J.-M. Bre- 
sard, de la Societe Brejoux. 

Tiens ! ce nom-ld vous dit quelque chose ? pas 
etonnant : on vous a dejd parle de lui, ici et ail- 
leurs, d propos de moult produits d' 'Applied En- 
gineering U.S. A, et notamment de la fameuse 
RAMFACTOR et de TRANSWARP, carte accelera- 
trice 3,6 MGz pour //f et Ik . 

II sevit a Lyon, au 29 de la rue de Montribloud, dans 
le 9 e orrondissement. Si co vous chonte de lui tele- 
phones appelez le 78.36.52.69 et gore a la note ! Il 
vous parlera de votre machine et de ce que vous 
pourriez en tirer comme nul autre, mais la commu- 
nication sera longue, je vous le promets. 

Seulement voild, ce n'est pas un plaisantin : il 
commercialise, en France, avec des notices en 
frangais, des produits garantis, non seulement 
testes par des specialistes, mais souvent (pour 
ne pas dire toujours) accompagnes de logiciels 
qui facilitent la vie des utilisateurs. 

Cest le cas de mon DISQUE DUR WINCHESTER 3.5 
partitionnable. Installe depuis un mois sur mon 
GS, il me permet enfin de tirer efficacement 
parti d une machine dont je continue de penser 
le plus grand bien, mais qui est encore handica- 
pee par la lenteur du chargement de ses syste- 
mes d'exploitation. Avec ce disque dur, utiliser 
APW et APW.C devient un plaisir et il en va de 
meme pour acceder au GSBasic. 

Multi-machines 

Je vous parle sans cesse du GS, mais je vous 
signale que le bijou de Brejoux fonctionne aussi 
sur Apple We, avantoge non negligeable quand 
on connait le prix des lecteurs 3 pouces et demh 
En fait, pour le prix de deux lecteurs, on peut 
s'offfir 20 Mo et, par-dessus le marche, la ver- 
sion 3.0 de ProSel, le fameux selecteur de pro- 
grammes de Glen Bredon, accompagne d'une 
notice en francais. (suite page u) 



/ NESTOR — APPLE It OS / 



Vous oimeriez evidemment en savoir plus sur le 
disque dur lui-meme, mais ca vous donnera quoi ? 

Si vous disposez d'un Apple He, vous installerez 
la carte controleur en slot 5, 6 ou 7, Si vous pos- 
sedez un GS, vous n'aurez droit qu'au slot 6 (je 
crois savoir que Ton travaille la-dessus et qu'il 
sera plus tard possible de glisser la carte dans 
une outre fente). Je vous signale au passage que 
vous ne pourrez plus utiliser le lecteur 5.1/4 con- 
nects sur un lecteur 3.5, mais rien ne vous inter- 
dit de passer par une carte controleur 5.1/4 ins- 
tallee dans un autre slot. 

Votre fournisseur — M. Bresard — vous expli- 
quero en quelques mots (par lettre et par tele- 
phone si besoin est) comment configurer le 
CONTROL PANEL du GS (elementaire). 

Votre disque dur sera reconnu en Slot 6, Volume 
1 , Drive I de la partition DOS 3.3 (parfaitement : 
vous disposerez aussi de I'ancetre ! ). La Societe 
Brejoux vous livrero un disque dur preen registre 
et vous ne serez done pas oblige de passer par la 
disquette d'initialisation PRODOS 1.9. 

J'ai dit : Dos, ProDOS... mais ce n'est pas limita- 
tif. ^a marchera aussi avec Pascal. Quant a Pro- 
Sel (avec ou sans souris), il vous instollero auto- 
motiquement ses editeurs, selecteur et utilitai- 
res, y compris le ProDOS 8 version 1 .4B. 



Rapid I te et discretion 

Je m attendais a recevoir un disque dur compact, 
mais pas a ce point, Moins haut que deux lec- 
teurs 3.5, mats de largeur identique, le BJX 20 
se fait completement oublier. Est- il bruyant ? 
moins que celui du compatible qui chatouille 
desagreablement mes oreilles. II n'est pas plus 
genant que celui du ventilateur qui refroidit Tun 
de mes radiateurs favoris : un Apple He bourre 
de diverses cartes. 

Rapidite ? Chez Brejoux, on vous affirmera qu'il 
est super-rapide. Habitue a I'instantaneite de 
chargement que permettent les cartes-memoire 
du meme fournisseur, je manque d'elements de 
comparaison. J'ai effectue quelques petits tests 
par rapport au compatible cite plus haut, mais 
les systemes dexploitation n'etant pas les 
memes, les resultats ne sont pas significatifs. 

Vous ne serez certainement pas decu si vous 
devenez demain I'heureux possesseur de Tune 
de ces unites de stockage et vous ourez enfin le 
plaisir d'acceder RAPI DEMENT aux excellents 
outils qui, ne I'oublions pas, sont bel et bien 
fournis avec I' Apple IIGS. hktor. 

J'apprends que Ja Society Brejoux fera beneficier les abon- 
nes de Tremplin Micro (sur justification de leur numero de 
client) d'un prix special fart inleressant : environ 6000 F HT 
au lieu de 6600 F HT (y compris ProSel de Glen Bredon). 
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LE LEV RE OU TURBO BASIC 

TURBO BASIC est le nouveau compiloleur BASIC ultra rapide de BORLAND pour 
IBM PC et Compatibles. Adopte rapidement par de nombreux programmers, 
ce nouveau BASIC avaii besoin d'etre detoitle. Veritable manuel d'apprentis- 
sage IE LIVRE DU TURBO BASIC a une vocation didactique. 

Sadressant tout particulierement aux programmers debutants, il pre- 
sente progressivement et par ordre de complexite. les commandes du 
TURBO BASIC. Agremente de nombreux exemples qui illustrent les com- 
mandes decrites et les algorithmes presentes, "LE LIVRE DU TURBO BASIC" 
$vite n4anmoins les considerations trop techniques et constifue une intro- 
duction pratique a ce nouveau compiloleur BASIC. 

PrincipauM suJmtM traltes : 

Description de I'editeur — Installation du TURBO BASIC — Les bases du 
TURBO BASIC i boucles, gestion de donnees. variables, fonctions — Des 
applications en TURBO BASIC : traitement de donnees, gestion de fichiers 
— Quelques particularity de TURBO BASIC i liaison avec le langage 
machine, gestion des interfaces.,, — Presentation de TURBO BASIC en 
quelques pages : liste des fonctions avec leur syntaxe et une description 
tres courte — Les differences entre TURBO BASIC etGW BASIC. ■ 



— ^— ^— — ^— / wan kcenic — GSBasic / ^ 

French.using 



Le GSBASIC souffre, a mes yeux, d'une tare insi- 
gne ; son Print Using ne sait pas im primer en 
francais. Une fois encore, le passeport de J.-L 
Gassee ne lui a pas rappele quelles sont les exi- 
gences de sa langue maternelle. 
Pendant que mon ami Emile SCHWARZ met la 
derniere main a son guide du GSBASIC, il m'a 
semble utife de combler cette lacune deplorable. 
II sagit, je lespere, d'une formule provisoire, 
car j'ai demande aux auteurs du GSBASIC d'ajou- 
ter une option F' dans la syntaxe de leur Print 
Using [T pour format Francais). 
Mon petit programme fait appel b des fonctions 
qui, si elles sont nouvelles pour les habitues de 

I APPLESOFT, sont familieres aux adeptes du 
BUSINESS BASIC de ( APPLE ///. 

* IMAGE permet de definir un format d'affichage. 
' Structure procedure', localisee par le GS- 
BASIC lors du chargement du programme, et 
de ce fait accessible rapidement, alors 
qu'une routine exige un balayage du pro- 
gramme a chaque appel. 
■ Utilisation du fichier virtue! de 255 octets 
' MEMBUFR'. On initialise le pointeur sur ce 
tampon en y ecrivant un RETURN. Ensuite, on y 
inscrit le nombre a traiter selon le format 
retenu. On extrait de ce tampon la chaine for 
matee et on utilise les commandes INSTR( et 
SUBS pour remplacer les caracteres incorrects. 
Cette solution est sans doute penalisante en 
terme de vitesse d'execution, mais la version 
compilee par TML. BASIC devrait ameliorer ses 
performances. Afin de Jimiter autant que possi- 
ble le ralentissement lie a la manipulation pro- 
posed, j'ai choisi la formule procedure' dont 
I'appel s'execute plus rapidement que celui 
d'une routine. En outre, le recours d 
DO_WHILE_UNTIL m'a permis d'exclure de la 
procedure' tout GOTO / GOSUB. 

II serait judicieux de commencer par saisir les 
lignes de la procedure et de les 'capturer' dons 
un fichier TXT (FRENCHU.PROC par exemple). A 
I'ovenir, chaque fois que vous aurez besoin 
d'inserer cette procedure dans un programme, il 
vous suffira de taper : EXEC FRENCHU.PROC. 



II serait possible de reduire le nombre de lignes 
de la procedure en regroupant des instructions. 
Si je ne I'ai pas fait, malgre mon gout pour les 
programmes compacts, c'est a cause d'un bug 
dans la routine d'indentation de la version 
actuefle du GSBASIC. 

Afin de faciliter la capture d un programme GSB 
sous forme de fichier texte, je vous propose le 
fichier EXEC CAPTURE. La common de directe 
EXEC CAPTURE/PATHNAME listera dans le 
fichier TXT PATHNAME le programme GSBasic 
en memoire. 

Pour creer ces fichiers EXEC, Schwarz vous don- 
nera une formule tout GS8'. Personnellement, 
j'ai eu recours au bon vieil APPLEWRITER qui me 
donne toujours satisfaction. 



CAPTURE 

REM exec CAPTURE/'TXTfile 
home 

open ele, filtyp = TXT for output as £29 

outrec = ; indent -2 

output £29 : list : output £0 

outrec = 80 

close £29 

type el e 



Une varianfe permet de specifier le nom du pro- 
gramme GSBasic a charger et le nom du fichier 
TXT a creer dans une seule commande. 



CAPTURE2 



REM exec CAPTURE2, "GSBfile.TXTfile 

home 

load ele 

open e2e, filtyp = TXT for output as £29 
outrec = t indent =2 
output £29 : list : output £0 
outrec = 80 

close £29 

type e2e (suite page \6) 
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/ Vvan KOENiG — CSBaslc / 



Enf in, pour simplifier ('execution des listoges 
papier, je vous propose PAPLIST, PAPLYST et 
PAPTYPE. 



PAPLIST 



REM exec PAPLIST 
home 

open ".PRINTER", as £1 
output £1 : list 
close £1 



PAPLYST 



REM exec PAPLYST/ lignDeb-IignFin ("1- liste prog comp 
home 

open ".PRINTER", as £1 
output £1 : list el e 
close £1 



PAPTYPE 



REM exec PAPTYPE/'TXTfile 
home 

open ".PRINTER ", as £1 
output £1 ; type ele 
close £1 



CONFICIMP 



REM exec CONFIGIMP 
home 

assign ".PRINTER",-! 
assign .PRINTER M 



6 executer avant 
la l er * impression 
afin de supprimer 
I'ajout systemati- 
que d'un LineFeed 
apres cheque 
CarriageReturn. 



Si vous oubliez ta syntaxe d'appel, pas de pro- 
blems, un simple TYPE execCmd affichera le 
contenu du fichier EXEC sur I'ecran. 



Wan KtKHlC — 12 d*C*mbre 1HT- 




10 REM * French Using 

20 REM 

30 HOME 

40 SHOWDIGITS = 9 

50 FORMATS = "++7&.2Z" 

60 IMAGE 20 R . 20 A ,20 A 

70 NB = 1 234.53 

75 F$ = "FfFf":N = 789:PV%=345 

76 PRINT "F$= "F$,"N= "N/'PV% = ";PV% 
80 FORI%=0TO1 

90 PROC French(FORMAT$,NB) 
100 NB$ = STR$(NB) 

110 PRINT USING 60;T7'formate'7'nor 
mal" 

120 PRINT USING 60;"Format amencain", 
US$ r NB$ 

T30 PRINT USING 60;"Format francais", 

FR$,NB$ 
140 NB = -PI * NB 
150 NEXT 
200 PRINT 

210 PRINT "F$= "F$,"N = "N,"PV%= ";PV% 
900 END 

65263 REM F$ = format , N - nombre 

65264 DEF PROC French(F$,N) 

65265 REM sortie FR$ 

65266 LOCAL PV% 

65267 OPEN ".MEMBUFR", AS£29 

65268 PR1NT£29 

65269 PRINT£29 USING F$;N 

65270 !NPUT£29;FR$ 

65271 US$ = FR$: REM sortie U5$ uniquement pour demo 

65272 DO:PV% = INSTR(FR$/\") 

65273 WHILE PV%:SUB$(FR$,PV%) = " " 

65274 UNTIL 

65275 DO:PV%=INSTR(FR$ J ".' < ) 

65276 WHILE PV%:SUB${FR$,PV%) = "," 

65277 UNTIL 

65278 CLOSE£29 

65279 END PROC 

P.S. : J'ai cite APPLEWRITER; ceux qui souhaitent 
continuer a utiliser ce programme peuvent con- 
lacter le support technique APPLE qui pourra 
leur fournir un ensemble de patches YK permet- 
tanl entre autres : la recopie d'images HGR ou 
DHGR, la presence de 3 fonfes personnalisees 
en memoire et, bien entendu, I'impression possi- 
ble par le port serie du GS. 
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LES ERREURS 



en Applesoft, 
sous Pro DOS 



ONERR GOTO 63600 

10 GOTO 100: REM Erreur intentionnelle 
63580 END 

REM 

REM Sou s -Programme de traitement d' erreur 

REM . 

POKE 216, Q:E = PEEK (222): TEXT : HOME : PRINT "Erreur 
PRINT "A la ligne: " PEEK (219) * 256 + PEEK (218) 



63585 
63590 
63595 
63600 
63610 
63620 
63630 
63640 
63650 
63660 
63670 
63680 
63690 
63700 
63710 
63720 
63730 
63740 
63750 
63760 
63770 
63780 
63790 
63800 
63810 
63820 
63830 
63840 
63850 
63860 
63870 
63880 
63890 
63900 
63910 
63920 
63930 
63940 
63950 
63960 
63970 
63980 
63985 
63990 
63995 



r ;E 



IF E = THEN PRINT "Next without for" 
IF E = 2 THEN PRINT "Range error" 
IF E = 3 THEN PRINT "No device connected" 
IF E = 4 THEN PRINT "Write protected" 
IF E - 5 THEN PRINT "End of data" 
IF E - 6 OR E = 7 THEN PRINT "Path not found" 
IF E ■ 8 THEN PRINT "I/O error" 
IF E = 9 THEN PRINT "Disk full" 
IF E = 10 THEN PRINT "File locked" 
IF E - 11 THEN PRINT "Invalid option" 
IF E = 12 THEN PRINT "No buffer available" 
IF E = 13 THEN PRINT "File type mismatch" 
IF E — 14 THEN PRINT "Program too large" 
IF E - 15 THEN PRINT "Not direct command" 
IF E - 16 THEN PRINT "Syntax error" 
IF E = 17 THEN PRINT "Directory full" 
IF E - 18 THEN PRINT "File not open" 
IF E - 19 THEN PRINT "Duplicate file name" 
IF E = 20 THEN PRINT "File busy" 
IF E = 21 THEN PRINT "File(s) still open" 
IF E - 22 THEN PRINT "Return without gosub error" 
IF E = 42 THEN PRINT "Out of data" 
IF E = 53 THEN PRINT "Illegal quantity" 
IF E - 69 THEN PRINT "Overflow" 
IF E = 77 THEN PRINT "Out of memory" 
IF E = 90 THEN PRINT "Undef'd statement" 
IF E = 107 THEN PRINT "Bad subscript" 
IF E = 120 THEN PRINT "Redim'd array" 
IF E = 133 THEN PRINT "Division by zero" 
IF E = 163 THEN PRINT "Type mismatch" 
IF E = 17 6 THEN PRINT "String too long" 
IF E = 191 THEN PRINT "Formula too complex" 
IF E = 22 4 THEN PRINT "Undef'd function" 

IF E — 254 THEN PRINT "Bad response to an INPUT statement" 

IF E = 255 THEN PRINT "CTRL-C interrupt attempted" 

VTAB 20: PRINT "<A> - Retour Applesoft": PRINT 

PRINT "<B> - Re-executer le programme: "; 

GET AS: IF AS = "A" THEN TEXT : HOME : END 

IF AS = "B" THEN CLEAR : TEXT : HOME : GOTO 1 

GOTO 63970: REM Si AS <> "A" ou AS <> "B" GOTO 63970 



Un programme 
d'aff ichage de 
I'erreur peut se 
construire de cette 
maniere. Vous 
trouverez, au 

verso, la 
traduction des 
messages et des 

explications 
complementaires. 



(suiie page IB) 



/ LES ERREURS / 



Tableau des ditferents messages d'erreur ProDOS 8 et Applesoft. Dans ce tableau vous trouverez : 



1 . Le numero de I'erreur. 

2. Le texte anglais de I'erreur. 



3. A pour erreur Applesoft ou P pour erreur ProDOS. 

4. La signification en francais de I'erreur. 



N° 


Texte de i'erreur : 


* 


Signification : 





Next without for 


A 


Utilisation de NEXT sans FOR 


2 


Range error 


P 


Nombre trop grand 


3 


No device connected 


P 


Ce peripherique n'est pas connecte 


4 


Write protected 


P 


Ecriture interdite sur ce disque 


5 


End of data 




Fin du fichier 


6 


Path not found 


P 


Fichier inconnu 


7 


Path not found 


P 


Fichier inconnu 


B 


I / error 


P 


Erreur d'entree / sortie 


9 


Disk full 


P 


Ce disque est plein 


10 


File locked 


P 


Ce fichier est verrouille 


11 


Invalid option 


P 


Cette option n'existe pas 


12 


No buffer available 


P 


Pas de memoire disponnible 


13 


File type mismatch 


P 


Type de fichier different 


14 


Program too large 


P 


Programme trop grand 


15 


Not direct command 


P 


Commande a utiliser dans un pgm 


16 


Syntax error 


AP 


Erreur de syntaxe 


17 


Directory full 


P 


Catalogue principal plein 


18 


File not open 


P 


Ce fichier e3t ferme 


19 


Duplicate file name 


P 


Norn de fichier en double 


20 


File busy 


P 


Ce fichier est oecupe 


21 


File (3) still open 


P 


Fichier encore ouvert 


22 


Return without gosub 


A 


Utilisation de RETURN sans GOSUB 


42 


Out of data 


A 


Vous avez plus de variable apres 








READ que de DATA a lire 


53 


Illegal quantity 


A 


Nombre trop grand 


o y 


Overflow 


A 


T3 a c i \ 1 ♦* a f" t~ mn rtrfl nH nmir AfiDl PSflf t 


77 


Out of memory 


A 


Erreur afferente a la memoir© 


90 


Undef *d statement 


A 


Num6ro de ligne ind6termine 


107 


Bad subscript 


A 


Numero de dimension hors tableau 


120 


Redim'd array 


A 


Tableau deja dimensionn£ 


133 


Division by zero 


A 


Division par z4ro impossible 


163 


Type mismatch 


A 


Type de ces variables incompatible 


176 


String too long 


A 


Chaine trop grande 


191 


Formula too complex 


A 


Formule trop complexe 


224 


Undef 1 d function 


A 


Fonction inconnue 


254 


Bad response to an INPUT 


A 


La donn£e n'est pas du type 




statement 




demande dans un INPUT 


255 


j Ctrl-C interrupt attempted 


A 


Vous avez press6 Ctrl-C 



Vous devez debuter votre programme par ; ON ERR GOTO numero de ligne du sous- programme de 
traitement des erreurs. la premiere ligne de ce sous-programme DOIT IMPERATIVEMENT comporter 
un POKE 216,0 pour retablir le traitement d'erreur standard. Votre S.P. peut : corriger I'erreur, puis 
reprendre I'execution du programme avec ['instruction RESUME ; afficher le message d'erreur, puis 
recommences ou terminer le programme ; soit trailer toutes les erreurs possibles (hum !) ou 
seulement quelques-unes (ce qui est plus raisonnable ! ). 

— / PAGE f / 1 
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STATISTIQUES 



Ce programme offre deux options ; 

OLe traltetnent de donnees numerlques 
m*e*m 

Vous pouvez traiter les notes d un eleve, 
les ages dun groupe de personnes, etc. 
Prenons le premier exemple : des notes 
d'un eleve au cours dun trimestre. Suppo- 
sons qu'il a successivement obtenu : 
trois 12 cinq 11 
un 8 un 18 
deux 15 trois 13 

Le nombre de valeurs est egal d 6. La 
premiere vafeur est de 12 et a un effectif 
de trois. Quand vous lui aurez fourni toutes 
les donnees, I'ordinateur calculera les 
caracteristiques de la serie statistique et 
vous en proposera une representation gra- 
phique haute resolution. Les effectifs 
seront portes en ordonnees, et les valeurs 
en abscisses. Si I'effectif maximum est : 

— inferieur a 10 : I'amplitude des gradua- 
tions sera de 1 . 

— compris entre 10 et 50 : elle sera de 5. 

— superieur a 50 : elle sera de 10. 



© i etude par ctasse 

Prenons tout de suite un exemple : la tail ie 
des eleves de seconde. Supposons que : 

2 eleves ont une faille comprise entre 145.5 et 154.5 cm 

9 " " 154.5 et 159.5 cm 

20 " " 159.5 et 164.5 cm 

14 " " 164.5 et 169.5 cm 

5 " " 169.5 et 174.5 cm 

II y a cinq intervalles. La borne inferieure 
du premier intervalle est 145.5. 11 faut 
ensuire entrer I'amplitude* de chaque 
intervalle, ainsi que I'effectif. Par exem- 
ple, le premier intervalle a une amplitude 
de 9 et un effectif de 2. Les intervalles sui- 
vants ont une meme amplitude de 5, mais 
des effectifs differents. Une fois les don- 
nees entrees, I'ordinateur calculera a nou- 
veau les elements caracteristiques de la 
serie, et en proposera une representation 
graphique. Cette fois, pas de graduation 
verticale, car c'est la surface des rectan- 
gles qui est proportionnelle aux effectifs. 

ATTENTION ! le programme necessite une carte 80 colonnes. 

' onpsifude = dtftereoce entre to loiHe moicinium ef la faille minimum, dons chaque categoric. 



100 CLEAR : TEXT 6180 

105 L0T1EM : 17900 28A5 

110 0* = CHR* <4> B3A4 

115 PRINT D* + 'PR£3 U + CHR$ <13) 578A 

120 1$ = D* + "PR£1" + CHR* (13) 56QB 

125 E* = D$ + "PR£0" + GHR* (13) A304 

130 HOME :HT = 1403 vvQ5 

135 POKE HT,24: PRINT 11 a*******************************" F95F 

140 POKE HT.24: PRINT "* *" E433 

145 POKE HT,24: PRINT "* ETUDE DE SERIES STATISTIQUES *" 0791 

150 POKE HT,24: PRINT "* "~ *" E433 

155 POKE HT,24: PRINT " *#*#**********************##**#*"' F95F 

140 PRINT : PRINT : PRINT 74A2 
165 POKE HT,10; PRINT "1 - SERIES A UNE VARIABLE "; PRINT 

170 POKE HT,10: PRINT '2 - ETUDE PAR CLASSE" HOE 

175 PRINT : PRINT : PRINT 74A2 

180 POKE HT.20: PRINT "VOTRE CHDIX : " i E5FB 

185 GET A$: PRINT AS 8F7C 
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/ ST<U TiSTiQUBS / 

190 IF A* < "1" OR A* > "2" THEN CALL - 198: GOTO 185 
195 ON UAL (A*> GOTO 200,630 
200 HOME : GOSUB 205: GOTO 235 
205 POKE HT,29: PRINT »**********************' 
210 POKE HT,29; PRINT •* " *" 

215 POKE HT 1 29 : PRINT "* SA1SIE DES DONNEES * 

IS ^ HT 1 29 : Pr!£ I;,..,....—* «*" - <*™ ■ = PRIKT 

230 POKE 34,6; RETURN 
235 INPUT "NOMBRE DE VALEURS :' "?N 
240 DIM X(N),NCN) 
245 PRINT : PRINT 
250 FOR I = 1 TO N 

255 INPUT "VALEUR :"';X<I> p , B kl/n 

260 VTAB PEEK <37): POKE HT.40: INPUT "EFECTIF : »|N<1) 

270 TEXT : HOME : VTAB 1 1 : POKE «T r 3IS INVERSE : PRINT * ^ 

- — * 

275 POKE HT,31: PRINT " CALCUL EN COURS " 
280 POKE HT,31 1 PRINT " "> NORMAL 

285 FOR I = t TO N 
290 VI - VI + XCI) * N<1) 
295 V2 = V2 + X<I> * X<1> * NU) 
300 V3 = V3 + <X<I)> * 3 * NCI) 
305 V4 = V4 ♦ <X<1>> 4 4 « NU> 
310 V5 = V5 + N<I) * LOG (X< I) > 
315 V6 = V6 + NO) / X(I) 
320 M = M + N<I) 
325 NEXT 

335 FOR fZ/Vo N:E = E * N< 1 ) * ABS (A - X(I>): NEXT 
340 G = EXP (V5 / M) 
345 H = M / V6 
350 Q = SQR <V2 / M) 
355 VA=V2/M-A*A 
360 ET = SQR <VA) 
365 EM = E / M 

370 M2 = (V2 - 2 * A * VI ♦ A * A * M) / M 

375 M3 = CV3 - 3 * A * V2 ♦ 3 * A * A * VI - A M ) / M 

390 M4 - <V4 -4*A*V3 + 6*A*A*V2-4*A* 3 * VI + 

M) / M 
385 AP = M4 / M2 / M2 
390 AS = M3 / M2 * 1.3 
395 HOME : GOSUB 415 

a sra ; ^^s^rsff^'iS s, . 

495 

410 PRINT "NON" : GOTO 495 
415 PRINT " CARACTER I ST 1 QUE S DE LA SER1E : 
420 PRINT : PRINT : PRINT 

425 POKE HT.10: PRINT "NOMBRE D ELEMENTS ■ * 

430 POKE HT,10: PRINT "VARIANCE h '/V 

435 POKE HT,10: PRINT "ECART -TYPE ; 

440 POKE HMOS PR1NT " ECART M0YEN 



4 * 



300E 
F351 
BB97 
B7C0 
E9F8 
729E 
E9F8 
CC9C 
076D 
3579 
CE96 
15AE 
El DA 
AE3E 
EEF3 
0582 

33E7 
DD70 
6F14 
El DA 
374A 
E308 
3B9E 
0^1 
187F 
F555 
1E1A 
0582 
CBBO 
FDC5 
1AE8 
6BBC 
EOEC 
FF1C 
D62B 
OIBF 
42C2 
El 1 D 

5C7D 
4F76 
D18E 
2C1B 
40EA 

27EE 
F170 
F302 
74A2 
03CF 
DD55 
6590 
1394 
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445 POKE HT,10: PRINT "MOYENNE ARITHMETI QUE : ■ ;A 

450 POKE HT,10: PRINT "MOYENNE GE0METR3 QUE ; " ;G 

455 POKE HT,10: PRINT "MOYENNE QUADRAT I QUE " ;Q 

460 POKE HT.10: PRINT "MOYENNE HARM ONI QUE : ";H 

465 POKE HT,10: PRINT "MOMENT D'ORDRE 2 : " }M2 

470 POKE HT,10: PRINT "MOMENT D'ORDRE 3 ; " ;M3 

475 POKE HT,10: PRINT "MOMENT D'ORDRE 4 : " ;M4 

480 POKE HT.10: PRINT "COEFFICIENT D'APLATI SSEMENT . . ! " ;AP 

485 POKE HT,10: PRINT "COEFFICIENT D'ASSYMETRIE : " fAS 

490 RETURN 

495 PRINT ! PRINT "UOULEZ-UOUS LINE REPRESENTATION GRAPH! QUE DES RESUL 

TATS ? ";: GET B$ <?56D 
500 IF B* - "0" THEN PRINT "QUI" : ON V/AL <A$) GOTO 510,685 
505 PRINT "NON" ; END 

510 HOME : HGR : HCOLOR= 3 5D:i 

515 HPLOT 2,10 TO 2,159 TO 279,159 CC3E 

520 Nl ■ - 1 : FOR I = 1 TO N 

525 IF N<1) > N3 THEN NI = N(I):I0 = I 

530 NEXT 

535 GY ■ 150 / NI 

540 GX = 270 / N:X0 - 9iYG = 159 

545 FOR I = 1 TO N 

550 YH - N<I) * GY 54C3 
555 HPLOT X0,Y0 TO XO ,Y0 - YH TO XO ♦ GX.YO - YH TO XO + GX.YO 

560 XO = XO + GX: NEXT 4£Q3 
565 HOME 

570 VTAB 21: PRINT "MODE DE LA SERIE : " ;XO0) ; : POKE HT,40: PRINT "E 

FFECTIF :-";N<I0> 41C2 

575 YO = 159:X0 = 2 I SBC 

580 P = 1 * (Nl < = 10) + 5 * ((NI > 10) AND CHI < = 50)) + 10 * (N 

1 > 50) 92FF 

585 FOR I = TO NI STEP P 

590 Y = YD - 3 * GY 

595 HPLOT XO - 2,Y TO XO ♦ 2,Y: NEXT 

600 PRINT : PRINT "VOULEZ-UOUS SAUVEGARDER L'ECRAN SUR DISQUETTE ? " ; 
: GET BS 

605 IF B$ = -N" THEN PRINT "NQN" : TEXT : HOME : END 
610 PRINT "OUI" 

615 INPUT "NOM DU FICHIER : " ;N* 33AC 
620 PRINT D* n BSAVE"N$ B ,A*2000 , L$l FFF" 
625 HOME : TEXT : END 
630 HOME : GOSUB 205 

635 INPUT "NOMBRE D' INTERYALLES : ";N: PRINT 

640 INPUT " BORNE 1NFERI EURE DU PREMIER INTERVALLE a M ; B : B I = B 
645 DIM X<N) ,N<N) ,A<N) : PRINT : PRINT 

650 FOR I = 1 TO N El DA 

655 PRINT "1NTERVALLE NUMERO ";I:" : B ; 

660 POKE HT,30: INPUT "AMPLITUDE :"";A(I) 6EIB 
665 VTAB PEEK <37): POKE HT,55: INPUT " EFFECTI F : " ;N< 1 ) 
670 BO ■ B + A<I):X<I) = CB + BO) / 2:B - BO 
675 NEXT 

680 GOTO 270 4544 
685 HOME 2F97 
690 HGR : HCOLOR= 3 
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695 


HPLOT 2,10 TO 2,159 TO 


279,159 






CC3E 


700 


FOR I = 1 TO N:AM = AN 


* A<I>: NEXT 






075F 


705 


GX = 270 / AM 








2F61 


/in 


HM ■ - 1 :N1 = - 3 j FOR I = 1 TO N 






1 40E 


71 S 


IE hit 1 \ \ KJ 1 TUCM MI ■ 


1 H '. 1 .' ■ i U I 






8CDA 


770 


U — Kit* 1 "i J At 1 *t 








KAMA 




IF H > HM THEN HM = H 








"MUM 


"7^n 

/«JU 


NEXT iGY = 149 / HM 








PF7A 


THE 

/ jd 


X0 ■ 9:Y0 = 159 












FOR I = 1 TO N 












Y = Y0 - N<I) / A(I) * 


GY 






7 7 4 ip 




X - A< I ) * GX 










755 


HPLOT X0,Y0 TO XO t Y TO 


XO * X,Y TO XO 


♦ X,Y0 




FCAA 


760 


XO = XO * X: NEXT 








OEBC 


765 


FOR I = 1 TO 10 - 1 








0BFF 


770 


Bl = BI * AC1) : NEXT 








9F45 


775 


HOME : VTAB 21 : PRINT 


'CLASSE MOOALE 


, * jBI 


•jB 


1 + A< I > ; "§ * ; 54B0 


780 


POKE HT.50: PRINT " EFFECT I F ; ";NU0) 






E227 


785 


GOTO 600 








2B41 




TWOIS BOWS OUVRAGE5 MASSON SUR L ASSEMBLE UR 



Quatre auteurs (J. -P. Malenge, S. Albertsen, P. 
Cot lard et L. Andreani) pour une serie d'ouvra- 
ges* que je trouve remarquabtes ' la program - 
motion structuree en Assembleur 6502 (ef 
65C02). 68000 et 8086 (ou 80286). Le but des 
auteurs etait de montrer qu'il est tout a fait pos- 
sible de normaliser la programmation en assem- 
bleur. lis y parviennent avec bonheur, 

Evidemment, on s'en doute, ma preference va au 
volume consacre au 6502, mais il est fort interes* 
sont de comparer, pour des exemples identi* 
ques, les instructions uti Usees par les trois mi- 



croprocesseurs. Je ferai neanmoins un leger 
reproche oux auteurs : pourquoi avoir adopte 
I'assembleur Lisa (dans le volume 6502), alors 
qu'il existe un ProCODE francais ? 
Noiez que le dernier chap it re de chaque cours 
(c'est le mot qui convient) fournit au lecteur la 
possibilite" de concevoir un petit 4diteur de texte 
(attention ! ce n est pas un fogiciel, mais une 
application elementaire expliquee). 
Un vceu : que MASSON poursuive cette politique 
d'edition f HKSTOR. 
' De 152 a IB* pages, format 17,5 X 24 bro<he i 
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ETICSOFT DISK 

DISK est un editeur d'etiquettes pour classement de disquettes. II fonctiorme sous 
PRODOS et utilise quatre polices de corocteres personnalises. L'impression s'effec- 
tue sur hmprimante IMA C E WRI TER, avec possibility d'imprimer huit etiquettes iden- 
tiques de format 89 X 36. 

Le programme utilise la routine CARAC.CH, parue dans le n°6 de TREMPLIN MICRO, 
qui permet l envoi des caracteres personnalises a Hmprimante. 

DISK propose des petits catalogues permettant de limiter les entrees au clavier. Cest 
par exemple le cas pour la categorie du programme, le copieur et le DOS. L'affichage 
des divers choix et la selection s'effect uent en frappant respectivement sur la barre 
d'espacement et sur la toucheEJUEEl A ce sujet, I'utilisateur, s'il le desire, peut 
completer ces catalogues en incremental les variables Tl ou PC ou DO des lignes 
1360 ou 1560 ou 1700 en fonction du nombre d'elements a ajouter. 



10 REM a********************************** 
20 REM * * 
30 REM * ETICSOFT : DISQUETTES * 

40 REN * BORDAS Ph i 1 i ppe * 

50 REM * 1987 * 

60 REM * * 
70 REM ***#***********#*#***#*********#*** 
80 REM 

90 REM DETECTION DES ERREURS 

100 REM 

110 POKE 214,0 S POKE 838,104: POKE 839,168: 

6: POKE 842,223: POKE 843,154: POKE 844, 

6,72: POKE 347, 96 
120 ON ERR GOTO 4230 
130 REM INITIALISATION DES VARIABLES 

140 REM 

150 D* =s CHR-I <4): PRINT 
160 PRINT DS"PR£3" 
170 HOME : INVERSE 

130 PRINT * ' >>>>> " ETICSOFT 

<<<<< 

190 NORMAL 
200 POKE 34,1 

210 ESS = CHR* (27) : HOME 

220 K = 1 i PRINT 

230 PRINT D$" BLOAD CARAC.CH" 

240 K = 2 

250 GOSUB 1360 

260 REM LECTURE ET C0NTRQLE DE LA DATE 
270 REM 



Attention ! Philippe BORDAS stock* 
tes fontes de corocteres a partir de 
I 'ad r esse $4000. Votre programme 
ne doit done pas depasser $3FFF... ce 
qui sera ie cas si vous tapex toutes 
les lignes de REM... 



POKE 840 ,104: POKE 841 ,16 
72: POKE 845,152: POKE 84 



:" " DISQUETTES 1?87 

N'oubliez pas de taper 
{'indispensable CA RA C. CH 
(e'est lui qui permet I'envoi 
des corocteres 
personnalises a 
I'imprimonte 
IMA G E WRI TER). 



A497 
251<? 



C598 
305E 
926F 

11BF 

8A7D 
1CFE 
4340 
D2FB 
454D 
7B7A 
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280 

290 

300 

310 

320 

330 

340 

350 

360 

2>7tt 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 

530 
540 
550 
560 
570 
580 

590 



DISQUETTE 



GOSUB 820 

REM LECTURE ET CONTROL E D'UNE REPONSE 

REM 

HOME 

MESS* = "UOULEZ-UOUS EDITER UNE ETIQUETTE <0/N) 
GOSUB 1280 

REM POUR CHAQUE ETIQUETTE 

REM 

IF REP* = "N" THEN GOTO 770 
REM LECTURE ET CONTROLE DU No. 

REM 

ER = 
GOSUB 1800 

REM GEST10N DE LA FACE A 

REM 

FC* 
TA* 
&}* 
DA* 
PA* 



"A" : GOSUB 2350 

TYPE* 

COP* 

DOS* 

NM* 



AA = ANN EE 
REM GESTION 

REM 

HOME 
MESS* 
/N> ? 
GOSUB 



DE LA FACE B 




= s LA FACE B A T-ELLE LA HEME DESIGNATION QUE LA FACE A <0 



1280 



IF REP* = 
FC* = " B " 
TB* 
CB* 



620 



610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

790 




0" THEN GOTO 
= "B" : G0SU8 2350 
= TYPE* 
= COP* 
= DOS* 
PB* = NM* 
AB = ANNEE 
GOTO 690 
TB* = TA* 
CB* = CA* 
DB* = DA* 
PB* = PA* 
= AA 

REM LECTURE ET CONTROLE DU COMMENTAI RE 

REM — 

GOSUB 2130 

REM EDITION DE L' ETIQUETTE 

REM 

GOSUB 33 90 

MESS* = "VOULEZ-VQUS EDITER UNE AUTRE ETIQUETTE (0/N) ? 
GOSUB 1280 

IF REP* = "N" THEN GOTO 
GOTO 400 
HOME : ONERR 
END 



'70 



014A 



2F<?7 
B14A 
657B 



6E27 



6297 
6979 



E5B6 
C6EF 

637E 
5663 
E644 
3F89 



2F97 

251C 

657B 

F322 

F2B7 

86F0 

AB7F 

C884 

9945 

CDBA 

01 4A 

E743 

9221 

DE23 

9938 

15D5 



3776 



3D7D 
9B0B 
6579 
6E27 
0F3F 
4476 
01 SO 



800 REM ROUTINE DE LECTURE ET CONTROLE DE LA DATE 
810 REM ================================= 
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820 REM LECTURE DU JOUR 

830 REM — 

840 HOME :U = 13:H = 37 

850 POKE 36,33: UTAB 8: PRINT " ENTRER LA DATE 

860 POKE 36,33: UTAB 9: PRINT " " 

870 POKE 36, H: UTAB U 

880 PRINT " . ./. 

890 POKE 36, H: UTAB U: GET AS 

900 IF (AS < "0") OR CAS ) "3") THEN POKE 36, H: UTAB U: GET AS: GOTO 
900 

910 PRINT AS 
920 JRS = AS 

930 POKE 36 ( H + 1: UTAB U: GET AS 

940 IF JRS = w 0" THEN IF <AS < "1") OR (AS > "9") THEN POKE 36. H + 

1 : UTAB U: GET AS: GOTO 940 
950 IF JRS = *3" THEN IF (AS < "0") OR (AS > " 1" > THEN POKE 36, H + 

1: UTA8 U: GET AS: GOTO 950 
960 IF JRS < "3" THEN IF CAS < "0") OR (AS > H 9*) THEN POKE 36, H + 

1: UTAB U: GET AS: GOTO 960 
970 PRINT AS 

980 DTES = "Date JRS + AS 

990 REM LECTURE DU M0 IS 

1 000 REM 

1010 POKE 36, H + 3: UTAB U: GET AS 

1020 IF (AS < u 0"> OR (AS > M") THEN POKE 36 ,H + 3s UTAB U: GET AS: 

GOTO 1020 
1030 PRINT AS 
1040 MSS = AS 

1050 POKE 36, H + 4 : UTAB U: GET AS 

1060 IF MSS = "0" THEN IF (AS < " 1" > OR CAS > "9") THEN POKE 36. H + 

4: UTAB U; GET AS: GOTO 1060 
1070 IF MSS = "1" THEN IF (AS < "0""> OR CAS > "2") THEN POKE 36, H + 

4: UTAB U: GET AS: GOTO 1070 
1080 PRINT AS 

1090 DTES = DTES + V" + MSS + AS 
1100 REM LECTURE DE L' ANN EE 

1110 REM --~ — 

1120 POKE 36. H 4 6: UTAB U: GET AS 

1130 IF (AS < "3"> OR (AS > "9") THEN POKE 36 ,H + 6: UTAB U; GET AS: 

GOTO 1130 921 1 

1140 PRINT AS 
1150 ANS - AS 

1160 POKE 36, H + 7: UTAB U: GET AS 

1170 IF ANS = "8" THEN IF (AS < "7*> OR (AS > "9"> THEN POKE 36, H + 

7: UTAB U: GET AS: GOTO 1170 
1180 IF ANS < "8" THEN IF (AS < "Q") OR (AS > "9") THEN POKE 36, H + 

7; UTAB U: GET AS; GOTO 1180 
1190 PRINT AS 

1200 DTES = DTES + V" + Af*JS + AS 

1210 UTAB 20: POKE 36,36! F ft I NT "OK CO/N) ? " 

1220 UTAB 20: POKE 36,47: GET REPS 

1230 IF (REPS < > "0""> AND (REPS < > "N" ) THEN GOTO 1220 

3240 IF REPS = " N " THEN UTAB 20: POKE 36,3: PRINT SPC( 80) :U = 13:H 

= 37: GOTO 870 3 1E7 

1250 RETURN 63B1 
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1260 REM ROUTINE DE LECTURE ET CONTROLE D'UNE REPONSE 



1280 HOME 

1290 H ■ (80 - LEN (MESS*)) / 2:U = 12 

1300 UTAB 12: POKE 36, H: PRINT MESS* 

1310 POKE 36 , H + LEN (MESS*): WiB 'J: GET REP* 

1320 IF (REP* < > "0") AND < REP* < > "N" ) THEN POKE 36, H + LEN (ME 

88$) i VTAB V: GET REP* : GOTO 1320 

3 330 RETURN 63B1 



1340 REM ROUTINE INITIALISATION DES VARIABLES 
1350 REM ============================ 



1 360 


T I ■ 19: 


DIM TTSCTT) 


8546 


1570 


PC*U) 




■L 5.0" 


1370 


TI*(1) ■ 


" GRAPHI SME" 


47F7 


1580 


PC*<2) 




"L 6.0" 


1 380 

k i_' t_J V 


TI*(2) = 


"TRAIT . TEXTS " 


SBB4 


1590 


PC$<3) 




"L 7.0" 


1390 


TI*(3> ■ 


" LAN GAGE* 


E048 


1600 


PC*<4) 




"ECHOl " 


1400 


TI*(4) = 


" TABLEUR" 


0F69 


1610 


PC*<5) 




"EDD.2" 


1410 


TI*(5> = 


11 INTEGRE" 


C26? 


1620 


PC* (6) 




"EDO , 3" 


1420 


TI*(6) = 


"SONORE" 


3A32 


1630 


PC*(7) 




"EDD.4" 


1430 


Tl*(7) = 


"GESTI ON" 


7076 


1640 


PC*(8> 




"CRA2Y" 


1440 


TI*(8) = 


" EDITEUR" 


6F70 


1650 


PC*(9) 




" NA2C3" 


1450 


TI*<9> = 


"UTILITAIRE" 


EE5B 


1660 


PC*C1Q) 




" DM2 . ■ 


1460 


TI*<1Q> - 


"COP I EUR" 


149E 


1670 


PGtC'lD 




"11 + 4 n 


1470 


thud = 


" GRAPH , IMPR," 


1BAE 


1680 


PC*U2) 




"11+ 6" 


1480 


TI*(12) = 


"ARCADE" 


7529 


1690 


PC$U3) 




"114 7 " 


1490 


TI*(13) = 


"AUENTURE" 


18F4 


1700 


DO = 6: 


DIM DO* (DO) 


1500 


TI*(14) = 


"ROLE" 


52BD 


1710 


DO*(l) 




"3.3" 


1510 


TI*U5> = 


"SIMULATION" 


0291 


1720 


DO* (2) 




"3.2" 


1520 


TI*(16) = 


"E DUCAT IF" 


4ED2 


1730 


DO*(3) 




" PRO" 


1530 


TI*(17) = 


"ECHECS" 


5C39 


1740 


D0*(4) 




ii pAS , 


1540 


TI*(18) = 


" REFLEXION" 


183B 


1750 


DO* (5) 




"CPM" 


1550 


TI*(19) = 


"AUTRE" 


3F1 1 


1760 


DO*<6) 




"SPE" 


1560 


PC = 13: 


DIM PC*<PC> 


6B22 


1770 


RETURN 






1730 


REM ROUTINE DE LECTURE ET 


CONTROLE 


DU No 


. DE LA 


DISQUETTE 


1 7on 


PPM — 















224C 
504E 
9650 
03A0 
A27E 
D280 
Al 82 
31DD 
0F8C 

079E 
31 8F 
BE92 
1D94 
41F4 
55E1 
E7E1 
2540 
9*34 
8D31 
8D3A 
63B1 



1800 HOME = 13:H = 38: OK = 

1810 POKE 36.25: v/TAB 8: PRINT "BORER LE No. DE LA DISQUETTE :" 

1820 POKE 36,25: VTAB 9: PRINT - " A583 

1830 POKE 36, H: VTAB V: PRINT ■ " 

1840 REM LECTURE ler CARACTERE 

1850 REM 

1860 POKE 36, H: 'vTAB V: GET A* 

1870 IF OK = 1 THEN GOTO 1930 CA94 

1880 IF A* < "0" THEN POKE 36, H: VTAB GET A*: GOTO 1920 

1890 IF (A* > "9") AND (A* < "A") THEN POKE 36, H: MTAB V: GET A*: GOT 

1920 5522 
1900 IF A* > "Z* THEN POKE 36, H: VTAB V: GET A*: GOTO 1920 
1910 OK = 1 
1920 GOTO 1870 

1930 PRINT A* 0\ IF 

1940 NO* = A* 
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1950 REM LECTURE CARACTERES SUIVANTS 
I960 REM 

1970 1 = 1 634A 

1980 IF I > = 4 THEN GOTO 2100 BDFB 
1990 POKE 36, H + I: UTAB V: GET AS 

2000 IF A* = CHRS (8) THEN IF I = 1 THEN V = i 3 :H = 38 :0K = : GOTO 

I860 95A0 

2010 IF AS = CHRS <B> THEN IF] > 1 THEN 1 = 1- 1 :N0S = LEFTS -NO* 

,I>! POKE 36, H + I: v'TAB V: PRINT GOTO 2090 9E8F 

2020 IF AS = CHRS (13) THEN LET 1 = 5; GOTO 2090 DAE A 

2030 IF A* < "0" THEN GOTO 2090 0691 

2040 IF (AS > "?"> AND (AS < °A"> THEN GOTO 2090 BAC2 

2050 IF AS > "Z" THEN GOTO 2090 84B<? 

2060 1=1+1 805B 

2070 NO* = NO* + AS 81 7F 

2080 PRINT AS di IF 

2090 GOTO 1980 41 7D 

2100 RETURN 63BI 

2110 REM ROUTINE DE LECTURE ET CONTROLE DUN COMMENTAI RE 

2130 MESS* = " COMMENTAI RES CQ/N) ? " 02B3 

2140 GOSUB 1280 657B 

2150 IF REPS = "0" THEN GOTO 2170 9054 

2160 RETURN 63B1 
2170 HOME :H = 35:^ = 14: POKE 36,33: 'v'TAB 9: PRINT " COMMENTAI RES r": 

POKE 36,33: v'TAB 10: PRINT " " F6C5 

2180 POKE 36, H: 'v'TAB V; PRINT ■ 

" FAFC 

2190 1 = 0:CS = "" A3FE 

2200 IF I > =50 THEN GOTO 2290 Dl 36 

2210 POKE 36, H + 1: UTAB GET AS B736 

2220 IF AS = CHRS (13) THEN GOTO 2290 D1BA 
2230 IF AS = CHRS (8) THEN GOTO 230 

2240 IF <AS = CHRS <10>) OR (AS = CHRS -111.)) THEN GOTO 2280 
2250 IF AS = CHRS (21) THEN AS = " ": GOTO 2260 

2260 CS = CS + AS: PRINT AS 0A24 

2270 1=1+1 805B 

2280 GOTO 2200 556F 

2290 CS = " Cornmentaires : " " + CS: RETURN 1EB6 

2300 IF I = THEN GOTO 2200 8B29 
2310 IF I = 1 THEN I = : CS = * " : POKE 36, H: v'TAB V : PRINT ■ . " : GOTO 2 

200 C3CA 
2320 IF I > 1 THEN I = I - 1:C$ » LEFTS CS , I ) : POKE 36 , H + I: UTAB V 

: PRINT " ,." : GOTO 2200 h^BE 

2330 REN ROUTINE DE BEST I ON D'UNE FACE 

2350 REM TYPE 

2360 REM 

2370 HOME 

2380 'v'TAB 4: POKE 36,25: PRINT "CARACTERI STI QUES DE LA FACE "jFCS;" FDIF 

2390 v'TAB 5: POKE 36,25: PRINT " " 

2400 v'TAB 9: POKE 36,28: PRINT "CaUgone : " 9848 
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2410 POKE 36,12; VTAB 22: INVERSE : PRINT ">>> <ESPACE> ""POUR 

LES DIVERS CHDIX <<<" 

2420 POKE 36,14: VTAB 23: PRINT •>» " < RET URN > POUR ■■"SELECTION 

NER <<<": NORMAL 71 1 E 

2430 I = 1 

2440 VTAB 9: POKE 36,40: PRINT TI*<I); SPC( 10) 
2450 VTAB 9: POKE 36,39: GET A* 
2460 IF A* = CHR$ (13) THEN GOTO 2500 
2470 IF A* < > CHR* (32) THEN GOTO 2450 
2480 I = I + 1 : IF I > T I THEN 1 = 1 
2490 GOTO 2440 
2500 TYPE* = TI*U) 

2510 IF LEFT* (TYPE*, 5) < > "AUTRE" THEN GOTO 2680 

2520 POKE 36,40: VTAB 9: PRINT ".. " 

2530 I = 0:TYPE* - " " :H = 40 :V = 9 
2540 IF I > =12 THEN SOTO 2680 
2550 POKE 36, H *■ I: VTAB V: GET A* 
2560 IF A* = CHR* CI 3) THEN GOTO 2680 
2570 IF A* = CHR* (8) THEN GOTO 2630 

2580 IF (A* = CHR* (10)) OR <A* = CHR* C1D) THEN GOTO 2620 
2590 IF A* = CHR* (21) THEN A* = " " : GOTO 2600 
2600 TYPE* = TYPE* + A*: PRINT A* 

2610 1=1+1 805B 
2620 GOTO 2540 

2630 IF I a THEN GOTO 2540 

2640 IF I = 1 THEN LET I = OsTYPE* * " " : POKE 36 ,H: VTAB V: PRINT 
: GOTO 2540 

2650 IF I > 1 THEN LET I m 1 - 1 :TYPE* = LEFT* (TYPE*,I): POKE 36 , H 

+ I: VTAB V: PRINT GOTO 2540 

2660 REM COPIEUR 
2670 REM 

2680 VTAB 20: POKE 36,10: PRINT " Copieur i DOS : . 

~"(C> 19,, " C3C0 

2690 I = 1 634A 
2700 VTAB 20: POKE 36,21: PRINT PC*U) 2134 
2710 VTAB 20: POKE 36,20: GET A* 
2720 IF A* = CHR* (13) THEN GOTO 2760 

2730 IF A* < > CHR* (32) THEN GOTO 2710 El 88 

2740 I = I + 1: IF I > PC THEN LET I - 1 

2750 GOTO 2700 3074 
2760 COP* = PC*C I i 
2770 REM DOS 
2780 REM --- 
2790 I = 1 

2800 VTAB 20: POKE 36,46: PRINT DO*U > 
2810 VTAB 20: POKE 36,45: GET A* 
2820 IF A* = CHR* (13) THEN GOTO 2860 
2830 IF A* < > CHR* (32) THEN GOTO 2810 

2840 1 = j + li IF I > DO THEN 1 = 1 43FB 
2850 GOTO 2800 
2860 DOS* = DO* (I.) 
2870 REM ANNEE 
2880 REM 

2890 POKE 36,1: VTAB 22: PRINT SPC( 80 > : POKE 36,1: VTAB 23: PRINT S 
PC* 80) 

I— / PACE 23 / — 
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2900 VTAB 20 i POKE 36,69: GET At 

2905 IF A* = CHRS <13> THEN POKE 36,60 : VTAB 20: PRINT " ' 

" J ANNEE = 0: GOTO 3010 
2910 IF (At < "7") OR (AS > u 9' l > THEN POKE 36.69: VTAB 20: GET AS: GO 

TO 2910 CC4C 
2920 PRINT A* D1IF 
2930 ANN EE = VAL (AS) * 10 
2940 POKE 36,70: VTAB 20: GET A* 

2950 IF ANNEE = 70 THEN IF (AS < "7") OR (AS ) "9") THEN POKE 36,70! 

VTAB 20: GET AS: GOTO 2950 9D57 
2960 IF ANNEE > 70 THEN IF CAS < "Q") OR CAS ) "9") THEN POKE 36,70: 

VTAB 20: GET AS: GOTO 2960 
2970 PRINT AS 

2980 ANNEE = ANNEE + UAL CAS): IF STRS < ANN EE) > RIGHTS (DTES,2) TH 

EN VTAB 20: POKE 36 f 69: PRINT "..": GOTO 2900 54EF 
2990 REM NOM 
3000 REM 

3010 H = 30:V = 14 CD40 
3020 POKE 36,21: VTAB 14: PRINT "Face ";FCS; M : 

3F42 

3030 I = 0:NMS = 

3040 IF! > =28 THEN GOTO 3130 FE35 
3050 POKE 36, H + 1: VTAB V: GET AS B736 
3060 IF AS ■ CHRS (13) THEN GOTO 3130 D1B4 
3070 IF AS = CHRS (8) THEN GOTO 3140 2E89 
3080 IF (AS = CHRS (10)) OR CAS ■ CHRS (11)3 THEN GOTO 3120 
3090 IF AS = CHRS (21) THEN AS * " ": GOTO 3100 
3100 NM$ = NMS + AS : PRINT AS 

3110 1=1+1 805B 
3120 GOTO 3040 
3130 RETURN 

3140 IF I = THEN GOTO 3040 

3150 IF I = J THEN I = 0:NMS - " " : POKE 36. H: VTAB V: PRINT H ."s GOTO 

3040 A625 

3160 IF 1 > 1 THEN 1 = 1- 1 :NMS - LEFTS (NMSJ): POKE 36, H + I: VTAB 

V: PRINT ".": GOTO 3040 BA71 

3170 REM ROUTINE D'EDITION DE L' ETIQUETTE 
3190 HOME 

3200 MESSS = "ETIQUETTES POSITIONNEES <0/N) ? " 
3210 GOSUB 1280 

3220 IF REPS ■ W N" THEN GOTO 4020 1F4F 
3230 HOME : POKE 36,21: VTAB 12: PRINT " N OMBRE [' ETIQUETTES A EDITER ( 

0/8) ? " CC19 
3240 POKE 36 t 58: VTAB 1 2 : GET AS E75" 
3250 IF CAS < H 0"> OR (AS > "B") THEN GOTO 3240 

3260 NE = VAL (AS) DCFE 
3270 IF NE = THEN GOTO 4010 OF 74 

3280 HOME j VTAB 11: POKE 36,27: INVERSE : PRINT ":::::::::::::::::::: 
::": VTAB 12: POKE 36,27: PRINT ": EDITION EN COURS :": VTAB 13 
: POKE 36,27: PRINT " ::::::: s ::::::::::;::: "i NORMAL AAD5 
3290 PRINT ESS; CHRS C7> 

3300 FOR P = 1 TO NE B426 
3310 DS ' CHRS (4) B3A4 
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3320 REM ENTETE 
3330 REM 

3340 PRINT [>*"BLGAD BYTE . SET f A* 4000" 

3350 PRINT f PRINT ; PRINT : PRINT 

3360 PRINT D* " PR£ 1 " 

3370 PRINT EStj-LOOr { 

3380 PRINT CHR$ <24); 

3390 PRINT ES**-f * ; 

3400 PRINT ESVTOP i 

3410 PRINT CHR* ( 14> ;ESS"q " : 

3420 60SUB 4150 

3430 PRINT NO*;: PRINT CHRt (155 
3440 "PRINT D$" PR£0 " 

3450 PRINT D$"BLOAD OUTLINE . SET ,A$4000 " 
3460 PRINT D$"PR£1" 
3470 GDSUB 4150 

3480 PRINT ES*"r";s PRINT ! PRINT : PRINT ; PRINT : PRINT : PRINT ; 

3490 PRINT " " ;TA$i" - " ;TB$ 

3500 PRINT ES*"-f" ; 

3510 PRINT ESVTQ3";: PRINT : PRINT s PRINT 
3520 PRINT ES*'X" ; 

3530 PRINT 1 ' " 9C3E 

3540 PRINT ES*"T01"; 
3550 PRINT ES* - Y U 

3560 PRINT DS-PRfQ" 3A5B 
3570 REM CORPS 
3580 REM 

3590 PRINT D*"BLOAD BYTE . SET ,A$4000 M 

3600 PRINT D$"PRfl' 

3610 PRINT ES*"T05" : 

3620 GDSUB 4150 

3630 PRINT ESVT16" ; 

3640 PRINT ES*"e" ; 

3650 LA = 29 - LEN (PAS): LB = 29 - LEN <PBS) 

3660 PRINT ESV.X" ;"FACE A" ; ESS "Y" ; " l"".|Rfc*J SPC< LA);ESS"Q U ; 

3665 IF AA = THEN GOTO 3668 

3666 PR3NT " (C) 19" ; AA ; 
3668 PRINT 

3670 PRINT ESf "TOl" ;ES$"e" ?ES* r, T14 N ; 

3680 PRINT ESVX" ;"FACE B" ; ESS'" Y" ; :";PBSi SPC( LB) {ESVQ" ; 

3685 IF AB = THEN GOTO 3688 F173 

3686 PRINT " CO 19" ;AB; 
3688 PRINT ESS "TO 5" 

3690 PRINT ESS'N" ; E843 
3700 PRINT ES$"X"; AE4D 
3710 PRINT 75BA 
3720 PRINT ESS'TOT ; 89AA 

3730 PRINT " "" KX 

3740 PRINT ESVT01" ; B?AA 
3750 PRINT ESS'Y" CC 13 

3760 PRINT DS"PR£0" 
3770 REM FINAL 
3780 REM 

3790 PRINT DS"8L0AD BLI PPO . SET r A$4000" 
3800 PRINT DS"PR£1" 
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3810 PRINT ES*"T04"; 
3820 G0SU8 4150 
3830 PRINT ES*"Q" ; 

3840 PRINT ■ Copieur : " ;CA* ; " ; CB* j " n ;"D0S : ■ ;DA$ ; "-" ;DB* y " 
; DTE* 

3850 PRINT D*"PR£0» 

3860 PRINT DVBLOAD TM2 . SET , AS4000 M 
3870 PRINT DVPR£1" 
3880 PRINT ES* J, T02 M ; 
3890 GOSUB 4150 

3900 PRINT ESr'P" ; 5B45 

3910 PRINT C*: PRINT : PRINT 

3920 PRINT ESf M c" 

3930 PRINT 

3940 PRINT DVPR£0 H 

3950 NEXT P AFD2 
3940 PRINT D$"PR£3" 
3970 INVERSE 

3930 PRINT " ">>>>> ~"" ETICSOFT : DISQUETTES 1987 

<<<<< " 11BF 

3990 NORMAL 
4000 POKE 34,1 
4010 RETURN 

4020 VTAB 15: POKE 36,20: PRINT "1- IMPRESSION DE L' ETI QUETTE" 

4030 VTAB 16: POKE 36,20: PRINT "2- ED IT I ON D'UNE AUTRE ETIQUETTE" 

4040 VTA B 17: POKE 36,20: PRINT "3- QUITTER LE PROGRAHME" 

4050 VTAB 19: POKE 36,20: PRINT "VOTRE CHOIX :"" 

4060 UTAB 19: POKE 36,33: GET A* 

4070 IF <A* < " 1") OR <A* > "3") THEN GOTO 4060 

4080 PRINT At 

40 90 IF A* = " 1 " THEN GOTO 3230 

4100 IF At = "2" THEN IF ER = 1 THEN GOTO 730 

4110 IF A$ = "2" THEN RETURN 

4130 HOME : ONERR 

4140 END 

4150 REM ROUTINE DE CHARGEMENT D'UNE POLICE DE C-ARACTERES 

4170 PRINT ESVN" : PRINT CHR$ C9V80N"! PRINT CHR* U5)j CHR* <9>"Z" DC 
4180 CALL 768: PRINT ES*"D 0" 
4190 PRINT D$: PRINT ESV" 11 ; 
4200 RETURN 

4210 REM ROUTINE DE GESTION DES ERREURS 
4220 REM =========================== 

4230 CALL 838 : ER = 1 

4240 IF PEEK (222) = 6 THEN GOTO 4270 
4250 IF PEEK <222> ■ B THEN GOTO 4310 
4260 END 

4270 HOME : INVERSE : VTAB 9: POKE 36,29: PRINT " t ::::::::::::::::::: : 
" : VTAB 10: POKE 36,29: PRINT ": ERREUR DE FI CHI ER VTAB 11: P 
OKE 36,29: PRINT * :::::::::::::::::::::" : NORMAL 

4280 GOSUB 4350 

4290 IF K = 1 THEN GOTO 220 
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4300 
4310 



HOME 
HOME 



GOTO 4020 



4320 
4330 
4340 



: VTAB 8 
; VTAB 9 

POKE 36 

4350 
1 THEN 



POKE 36,27: 
POKE 36,27: 
27: PRINT " : 



GOTO 220 



BIO: 
GOSUB 
IF K = 

HOME : GOTO 4020 
4350 VTAB 22: POKE 36,15: INVERSE : PRINT 

POUR CONT1NUER ">>>> ": NORMAL 
4360 GET A* 

4370 IF A* < > CHR$ (13) THEN GOTO 4360 
4380 RETURN 



INVERSE : PRINT ":::::::::::::::: 
PRINT ": PROBLEME DE DISQUETTE :' 
:::::::::::::::::::::::": NORMAL 



VTA 



>>>> FRAPPER < RETURN) 



2642 



AA06 
7E7C 
25FC 
2642 

EEF2 
9923 
F88A 
63B1 



CARACCH CARAC.CH,A*03Q0 ,LS0033 



Routine 
extrorte de 
TM n°6 



0300: A9 FF 85 06 A9 3F 85 07 AD C8 BE 85 08 AD C9 BE 
0310: 85 09 E6 06 A5 06 DO 02 E6 07 C6 08 A5 08 C9 FF 



0320! DO 06 A5 09 FO 
0330: 12 Q3 60 



)C C6 09 AO 00 Bl 06 20 ED FD 4C 



BB1S 



programmes « Progrannes 



FPCE Fl : Tremplin micro numfcro 19 CO 19HB 

FACE B s Tremplin Dlf cpd num&ro 13 IE) 1988 



Copieur L SJ-L S J DOS : PRO-PEG Date ■ 

Dmmmmu* : fmXAnm m mm p*4B5, 



Deux exemples 
realises avec 

ETICSOFTDISK 



Logiciel intelligent, le programme 
de notre ami Philippe BORDAS sait 
faire la difference entre !es capita- 
ls et les minuscules, comme vous 
le revele la premiere ligne de ( eti- 
quette ci-dessus. 



□ 19 Pi 



929B 
1D27 
B6FC 
9675 



f RCE ft 
FREE B 



ETIC5QFT-015K 
ETIC50FT-D15K 



(C) 1SBB 
CD 19GB 



CtHPieur : L 5.8-L 5.1 DOS PB0-F10 flail i 29/81/88 



Comment realiser ties f antes * ? 

Tout simplement en utilisant le programme paru dans le 
numero 6 de TREMPLIN MICRO. Grace aux divers program- 
mes de ce numero, vous pourrez, non seulement realiser vos 
propres polices de caracteres, mais en recuperer, a partir 
des fontes graphiques (TOOL KIT APPLE et CHAT MAUVE). 

* Sur la disqueite 19, Philippe BORDAS vous en propose queiquesunes. 
/ PACE 32 / ^ ^ — — 



/ Claude AUBRV — LANCACE C / 



CUB MEIN UEBE 



Sans vous en douter, avancant en visibilite minimum dans la jungle du pays de C , frebu- 
chant sur de$ structures, vous enfoncant dans des flats de donnees, vous approchez pent- 
blement de I'tlot de la connaissance supreme I 

Apres vous avoir fait franchir les derniers sables mouvants, je vais lacher votre petite 
menotte, ef sans crainte ni regard en arriere, vous partirez... 



Vous vous en souvenez certainement, lecteur attentionne, dans le dernier numero de cette revue presti- 
gieuse, nous ovons defini les instructions "internes" du tongage C , celles qui sont comprises par le compilo- 
teur, Les plus futes d'entre vous en ont deduit que les autres instructions de C etaient "externes" et ils 
avaient roison ! En effet, tout ce qui est entree-sortie est decrit en C dans la bibliotheque standard, appelee 
par le linker apres compilation, Theoriquement cette librairie (nommee CUB sur Apple, STDLIB ou CSLIB sur 
d'autres systemes) implemente les memes instructions d'une machine 6 I'autre ou d'un C a I'autre, instruc- 
tions definies par la norme ANSI. Pratiquement, quelques differences subfiles entretiennent un taux d'adre- 
naline nettement superieur d la normale, chez les developpeurs qui travoillent sur plusieurs systemes. 

Si la liste des mots reserves de C est plutot modeste, il n'en est pas de meme en ce qui concerne la 
bibliotheque standard : celle du TURBO C de BORLAND ne comprend pas moins de 360 mots, celle de 
I'Apple 130. Pour nous y retrouver dans cette foret vierge, nous allons essayer de regrouper ces instruc- 
tions de maniere logique : 

i Manipulation de chaTnes de caracteres. 5 . Manipulation de memoire. 

Classification de types de caracteres. 6. Systeme. 

3. Conversion de types. 7. Entrees Sorties. 

4. Mathematique. 



LES CHniMES PC Cfl RMk CTERES 

La librairie standard de C permet toutes les manips que le plus masochiste des manipulateurs de 
chaine peut souhaiter. Ces instructions debutent par STR (elles s'appliquent alors a des chaTnes entieres) 
ou par STRN (elles s'appliquent alors a n caracteres de la chaine concernee). 

Par exemple strcatfd est, source) effectue une concatenation de source d la suite de dest alors que 

st meat (d est, source r n) effectue la concatenation de n caracteres de source d la suite de dest. 

Ces fonctions renvoient soit un entier (par exemple strlen(s) renvoie le nombre de caracteres de la 

chaine s) soit un pointeur vers la chaTne destination. On peut ecrire par exemple : 

printf{strcaf( "Claude ","Aubry")). 

Voici une liste des fonctions de manipulation de chaTnes de caracteres. Je ne saurais trop vous conseiller 
de vous entrainer a les utiliser : 



STRCAT(sl.s2) STRNCAT(sl,s2,n) 
STRCMP(sl,s2) STRNCMP(sl,s2,n) 
STRCPY(s1,s2) STRNCPY(s1,s2,n) 
STRCHR(sl,c) STRRCHR(sl.c) 



Concatenation s2 si . 
Comparaison de s2 et si , 
Copie de s2 dans si . 

Renvoie un pointeur vers la premiere (derniere) occur- 



rence de c dans si , 



(suite page 34) 
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STRLEN(sl) 

STRPBRK(sl,s2) 

STRSPN(s?,s2) 

STRCSPN(sl,s2) 
STRT0K(sI,s2) 



Renvoi© le nombre de caracteres de si . 

Pointeur vers la premiere occurrence d'une des lettres de s2 dans si. 

Nombre de caracteres depuis le debut de si ne comportant que des 
caracteres de s2. 

Nombre de caracteres depuis le debut de si et ne contenant pas de carac- 
teres de s2. 

Sert a decomposer une chaine de caracteres en ses divers composants 
(tokens) separes par un caractere de la chaine s2. Si un tel caractere est 
rencontre, il est remplace par un 0. Un nouvel appel de STRTOK avec 
NULL comme parametre retourne un pointeur vers le second token. 



Tenez, je vais etre sympa avec vous, void un petit exemple d'utilisation de STRTOK, le moins 
evident d utiliser : 



£include<string . h> 
£include<stdio . h> 
main( ) 
e 

char *chaine= " LUND I „ MARDI ; MERCREDI i JEUDI : VENDREDI -SAMEDI =DIMANCHE " f 

char *separateur= n , ; I : -= " , *s , i ; 

puts( strtokf chaine, separateur ) ) ; 

while( s ) puts( s=strtok( NULL, separateur ) ) ; 

e. 



CLJ\SS9FiCf\TlQN DE TYRES DE CARACTERES 

Ces fonctions debutent par IS suivit du type a tester et retournent la valeur Q (faux) ou 10 (vrai). 
Elles sont tres precieuses pour faire des saisies controlees (et toutes les saisies devraient etre 
controlees). Selon les versions de C ( les classifications de types de caracteres sont implemen- 
tees en bibliotheque standard ou en macro (£include <ctype.h > ) ou les deux au choix. 



ISALPHA(c) Vrai si c est une fettre. 

ISUPPER(c) Vrai si c est une majuscule. 

ISLOWER(c) Vrai si c est une minuscule. 

ISDIGIT(c) Vrai si c est un chiffre (0-9). 

iSXDIGIT(c) Vrai si c est un chiffre hexadecimal (0-9, A-F ou a-f). 

ISALNUM(c) Vrai si c est une lettre qu un chiffre. 

ISSPACE(c) Vrai si c est un espace tab return LF CR tab vertical. 

ISPUNCT(e) Vrai si c est un caractere de ponctuation. 

ISPRINT(c) Vrai si c est un caractere imprimoble (de l espace au tilde). 

ISGRAPH(c) Identique a isprint mais I'espace en mains. 

ISCNTRL(c) Vrai si c est un caractere de controle. 

ISASCH(c) Vrai si c est un caractere ASCII. 
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/* PETIT EXEMPLE DE RECONNAISSANCE DE TYPES */ 

#include <ctype . h> 
#include <stdio.h> 
main( ) 

char i=0, c=0, chaine [80] ; /* Sur Apple GS [=° et ] =§ */ 
printf ( "Tapez une chaine comportant des lettres et des chiffres: " ) ; 
scanf ( " %s " , chaine ) ; 
for ( i=0; i<strlen( chaine ); i++ ) 
e 

c=chaine [ i ] ; 

if (isdigit(c)) printf ( "%c est un chif f re" , c ) ; 
else 

e 

print f("%c est une lettre M ,c); 
if ( isupper(c) ) puts( "majuscule" ) ; 
else puts( "minuscule" ) ; 

e 

e 

e 



LES CONVERSIONS DE TYRES 

II est parfois utile de forcer un type de caractere, Jors de !o saisie,de facon a eliminer les problemes de 
minuscules/majuscules dans des zones de recherche. Les instructions de conversions de types de corac- 
feres sont la pour resoudre ce genre de probleme. Ces instructions debutent par TO et permettent de 
transformer une majuscule en minuscule et vice-versa. Lobjet retourne est un entier. 

toupper(c) Renvoie une majuscule correspondant a c. 
tolower(c) Renvoie une minuscule correspondant a c. 
tooscfi(c) Renvoie un entier dont les bits de potds > 6 7 sont fixes a 0, 

La fonction ci-dessous permet de convertir une chaine de minuscules en majuscules, elle existe dans la 
plupart des C, mais pas sur I'Apple. 



char *strupr(str) 

char *str; 
e 

char *p=str; /* cree un pointeur vers la chaine str*/ 
while( ( *str=toupper ( *str ) ) ! =0 ) ++str ; 
return(p) ; 
e 

main( ) 

e 

printf ( strupr( "salut" ) ) ; 
e 



Suffit pour oujourd'hui : Vous avez bien travoille. Laprochaine fois r des maths et des fichiers. (suite pagew 
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Pour nous distraire je vous propose de vous prendre quelque temps pour des dieux,., Vous allez 
voir naitre e1 disparaitre, devant vous, des civilisations entieres dans le jeu de la vie. 

Pour des raisons de list hi lite j'ai rempiace les caracetres ° et § de I' Apple par[ et ] ... Ne vous offolez 
pas et surfouf n'ecrivez pas a Apple pour levr demander ov its onf cache ces sacres caracteres. 



£define nb li 20 
Cdefine ntf co 80 

char old generation[nb liHnb co]; 

char next gene ration [n6 Ji][n5_co]; 

int nb generations .population depart=800; 

/* * 

** Creation de fa premiere generation aleetoire 

void init generation^) 
e 

unsigned char li.co,aleatoire; 
int i; 

for (li=1 :li<nb lf:l++) 

for ^ co=1 ;co<nb_co;co++) 

old generation[liirco] =0; 
nexf_generation[lij [co]=0; 

e 

/* 

** On fabrique les grands ancetres 

*/ 

for ^i=0;i<=population depart;i++) 

aleatoire=randQ: 
co=aleatoire*80/256: 
ale atoire- rand Q; 
li=aleatoire*24/256: 
old_generation[ti][coj=1 ; 
6 



leleu de la vie oujeu de CONWA Y 



auteur Claude HURRY 
adaptation apple cs Emfle schwarz 



Le rnathemoticien CONWAY a imagine un 
jeu dit de la vie ; dans un univers modelise, 
un certain nombre de cellules naissent, 
vivent et meurent selon les regies de gene- 
tique simplifies. Une cellule et ses 8 voisi- 
nes apparaissent oinsi : 



1 2 

4 * 

5 7 



Calcule une nouvelle generation en fonction des regies de vie 



/* 
■** 

V 

void calc_generationQ 

unsigned char li,co,esperance; 
for (li=1 ;li<nb BilrW) 

for ^ 0=1 :co<nb_co:co++) 

esperance= old generation|lt-1][co] 
+old generation li+1][co| 
+olcTgeneration lilTco-1 
+olcTgeneration li|[co+1] 
+oId~generation li- 1 ] [co- 1 
+old"generation |IM co+1 
+o!d~generation li+1 co-1 
+olcTgeneration li+1 co+1 

switch (espe ranee) 
6 

case 4 : 
caseO : 

easel :next generationriilfco 
case 2 :next~generation li co 
case 3 :next generation X\ co 
e ~ 

e 



Les regies sont les suivantes ; 

1 . si une cellule possede deux au trois voi- 
sines elle survie 

2. si une cellule possede plus de 3 voisines 
elle meurt par surpopu lotion 

3. si une cellule possede 1 ou pas de voisine 
elle meurt par isolement 

4. chaque emplacement adjacent 6 trois cel- 
lules donne naissance a 1 nouvelle cellule. 



= 0; break: 

- old_generation[ 

- 1 ; break; 



| [co]; break; 
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Vous pourriez vous omuser 6 
changer mecbamment les 
conditions de vie de cet 
univers, en y prevoyant des 
epidemies, des guerres ou des 
baby-booms I 

Mais comme vous flgurez ou 
nombre des pocifistes, vovs y 
instaurerez pi u tot la paix 
universelfe, non ? 



** Compte le nombre d'individus d'une generation 

int nb individusQ 
e 

unsigned char li.co: 

int x=0; 

for ;li<nb 

for (co-1 ;cb<nb_co:co++) if (old generation[li]fco]==1) x++; 
return(x); 
e 
/* 

** mise a jour de I'ancienne generation 

•/ 

void met ajourQ 
e 

unsigned char li.co; 
for (li=1;li<nb_li;li++) 

for (co=1 ;co<nb_co:co++) 

old generationfliJIco] =next generation [I i][co]: 



Afflchage de I'unlvers 



V 

void affichejjniversO 
e 

unsigned char li.co; 

printff'Generation : %3d Population :%3dcn",nb generation++,nb individusfi): 
for (li=1;li<nb_li;li++) ~ - 



printf ("en*): 

for (co=1 ;co<nb_co;co++) 
e 

if (old generation [li] [co] ==0) printf ("+"); 

else printf (" "); 

e 

e 

printf ("cncnRETURN pour prochaine generation ou 'q k pour quitter -> ") ; 



/* 

** PROGRAMME PRINCIPAL 

*/ 

mainO 
e 

char c; 

do 
e 

printf("gfPopulation de depart (inferieure a 1000 -> "); 

scanf("%d",&population_depart); 

e 

while(population_depart > 999); 

srand(populationdepart) ; 

init^generationQ; 

do 
e 

affiche_universQ: 
calcgenerationQ: 
met a jourQ; 
c=getcharQ; 
e 

while (c != 'q') 
e 



TREMPLIN MICRO 

consacre un article a 
tovs les ouvrages sur le 
langage C, etcela 
depuis un an, Rares, en 
eHet sartf les langages 
ay ant suscites, en si pen 
de temps, un aussi grand 
nombre de bouquins 
traitant 

remarquoblement 
leur sujet. 
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— ■ / NESTOR — DlOnCTICtEL / — 

BASKANIME 



Qui n'a pas reve (comme vous, peut-etre ?) — chez Ies 
enseignants... ou Ies parents — de pouvoir mettre un vrai 
didocficiel entre ks mains de ses eleves ou de ses en fonts ? 
Tenez f personnel lement, lorsque je fis mes debuts, en 
Basic, sur un modeste — mais terrrrible — PC21Q de Sharp, 
combien de fois oi-je peste contre le manque d'interet des rares "meihodes" existont alors ! 




Je n'en suis que plus heureux de pouvoir vous 
annoncer • «Le Basicanime existe et je I'ai 
tester. Cest une realisation des Productions 
SNEIL, avec le label France-Logiciel, pour PC 
compatibles. Precision inutile, quand on con- 
nait un peu I'univers du MS. DOS ; le Basica- 
nime ne s'interesse qu'au langage bien connu 
des utilisateurs : le GWBasic ou le Basica 

VRAI OU FAUX ? 

Peut-on reellement apprendre un langage en 
visuolisant la succession de lemons animees 
(ladjectif nest pas trop fort) d'un didocfi- 
ciel ? la reponse est oui... On en est d'ail- 
leurs convaincu des la premiere leoon. En 
theorie, Basicanime a ete concu pour etre 
facilement a la portee d'eleves d'au moins 
13-14 ans (a partir de la classe de 3 e )... mais 
sans limite superieure. 




Les auteurs prevoient un "apprentissage" 
couvrant de 60 a 10(3 heures, selon le rythme 
personnel d'acquisttion, mais il est evident 
que le temps ne compte plus lorsqu'on 
atteint un certain niveau. Tous Ies program- 
meurs savent que cette activite est une 
grande "mangeuse" de loisirs... et s'en 
felicitent. 

DES PEDAGOGUES 

Avec Basicanime, on se trouve en presence 
dun bon produit, soigneusement mis au 
point par des pedagogues, L'editeur n'a pas 
tesine sur le nambre de disquettes (10, tres 
exactement) et si le fascicule d'utilisation est 
mince, c'est tout simplement parce que 
celled se revele on ne peut plus simple. Un 
seul regret : on perd l usage du disque dur 
pendant la formation, ce qui empeche certai- 
nement Ies copies, mais penalise I'uti- 
lisateur, un acces disque dur etant 
plus agreable qu'un acces disquette. 
Ce n'est la qu'un petit grief. Je sup- 
pose que des accords pourront etre 
conclus entre Tediteur et d'eventuels 
multi-utilisateurs. 



Productions SNEIL 

14. rue Pergolese 75016 PARIS 



Tel 



145.01.52,94. 
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RESOLUTION 



d'un systems tie 2 equations 
a2inconnues 



II faut savoir que, dans un plan muni d'un 
repere (celui du programme est orthonorme 

c'est-d-dire forme d'axes perpendiculaires 
d'origineO, avec graduation identique), I'equa- 
tion d'une droite est de la forme : 

ax 4- by -f c = 

ou a, b et c sont des reels 

quelconques : 

VT \-l ; etc. 
3 

Le programme RESO.EQ1 permet de resoudre un 
systeme de deux equations lineaires, et de trou- 
ver ainsi leur point d'intersection dans le repere. 



BXEMPLE (not re graphique) ; 

2x + y +2 = 
3x + 3y =0 

Le programme donnera, pour ce systeme : 

x = -2 

y = 2 

Ce couple (-2 ; 2) correspond aux coordonnees 
du point commun aux deux droites, par rap- 
port d I'origine du repere. 




Ces coordonnees verifient aussi les deux equations de 
droites, c'est-adire que les equations s'annulent en 
remplacanl x et y par leur valeur respectives : 

2 * (-2) + 2 + 2-0 

3 * (-2) + 3*2 = 

Re marques : Pour supprimer le sous-programme rra- 
cant les deux droites, il suffit de suppri- 
mer le GOSUB 430 de la ligne 260 ef les lignes 430 a 560. II est 
possible de memoriser I'imoge par BSAVE nom.A$40QQ,L$lFFF. 



10 TEXT i HOME 

20 I = 654? 

30 PRINT TABC 5) " RESOLUTION 0' 
UN SYSTEME DE" : PRINT TAB( 
10) "2 EQUATIONS A 2 1NCONNUE 
S" 5E63 

40 VTAB 6: PRINT "FORME DE LEG 

UAT10N : " DEA5 

50 PRINT : PRINT TAB- 10)" A x 

+ B y + C = 0" D876 



60 


PRINT TAB< 10> M A'x + 


B'y + 






C' = 0" 




B197 


70 


POKE 34 t 12 




FBAF 


80 


PRINT : PRINT : PRINT 




74A2 


90 


INPUT 'Maleur de A !" 


" ;A(1) 


8819 


100 


INPUT "Valeur de B : 


";B(1) 


991B 


110 


INPUT "Valeur de C s" 


' ;CU> 


701 D 


3 20 


GOSUB 300 




F643 


130 


HOME 




2F97 



(suite page 40) 
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340 


IF 4(1) < THEN PRINT " 




140 


T L 1 f \ ■ ITT Mil 1 _j A y . •-■ . A / n \ 

INPUT "Ualeur de A : ;A<2) 


nod i 




\ HDD \n\ i / / j a r 


RP7S 


1 50 


INPUT Valeur de B : ;B(2) 


UtHJ 




TF Ri* T > s 1 THFN PRINT "+ v 

1 r D 1 .' 1 \ nul r l\ III I T y 




160 


INPUT "Ualeur de C : ;CC2) 






\ i bU 1 U oTU 


snrr 


1 / U 


rnci id inn 


r gig 


3aA 

WWW 


IF B(l> = - 1 THEN PRINT " 

A 1 U \ • * J 111 l— 1 1 1 Mill 1 




1 6 U 


HUrth 


9P97 




- v " * ■ GOTO 390 


DC97 


1 oD 




n n OA 
U U OH 


370 


IF B< I) > THEN PRINT "+ " 

jr L»? v J ' . f W 111 L_I 1 1 IX Jill 1 




186 


REM CALCUL DE de 1 ta r X ET Y 








R3FF 
Dorr 


18/ 




T:ftfl 


tc qm) ^ fl THFN PRINT "- " 

1 r ONI/ * w in li t r iMM i 




1 on 


u — ( m% i ) * b^x:-*; tmzj * 






• ABS < B< I > ) : ■ y " : 


9E28 




O / 1 \ \ 

D W / J 


1 99^ 

1 7 £. O 


390 


IF CCD < THEN PRINT " 

i r w%#/ * w iii 1— ■ ™ i imii i 




in n 


ir n. n TUCW DDT KIT • DDTKIT 






• A8S ( C< I > ) : 


4D! 2 




• DDlUT H l J Cm IAT T OKI Kl-'A DAC 




400 


IF CCD > THEN PRINT "+ ■ 






r\ r~ pni 1 IT 1 flM * ■ PTT A* • TCVT 

Ufc bULUIlUIN. » bt 1 H» : I la 1 






\ i ' i 


BEE9 




$ RUN 


HrLo 


il 1 ft 
4 1 U 


rn liH l ~ u 


ASOR 

n JU O 


210 


X = < ( B ( 1 ) * C ( 2 > ) - CH<^3 * 




470 


RETURN 

l*iL 1 U IM i 
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C( 1 ) ) ) / D 


z j y d 


47*n 




003A 


220 


Y = (CCCl) * A(2)) - CL(2j * 




426 


REM TRACE DES 2 DROITES 






A( 1) ) > / D 


1 D^ft 


d77 




nn "^a 


225 




no *v» 

U U •5f-l 


430 


HOME • HGR2 : HC0L0R= 3; FOR 




226 


nru lunnrpp ■ nrp nrri 1 1 tatc 

REM IMPRESS Deb RtSULlAlb 






I = 1 TO 2 ■ H - 


FBOA 


227 


■ 


U U .5H 


440 


HPI HT 139 1R9 TD 1 ^9 • HPLO 




230 


nnu it - nnn it ■ r\ri ta. i iai it »" 

PRINT : PRINT DELTA vAUT : 






T (1 oq to 979 op. 


CC52 






U OD J 




FfiD a = 4 Tf) 274 STEP 15* HP 

run n — ■ iu a r ™ j > tr j ji m 




240 


DO It IT ■ DOT KIT TAD/ R~\»V M 

rKINI : KKINI IAb\ 3/ a — 






i fYT a inn Tn a 9a« nfxt 


6075 








4^n 

1 o u 


FDR A = S TO 198 STEP 15* HP 




250 


PRINT TAB( 5) Y = jY 


CI Di 
C i oo 




1 OT 137 A TO 141 A* NEXT 


37AE 


260 


i itad oa . utad oo ■ ncT a* . rjn 
"vMAB ii4 i HImd 57! bt i h* : bu 




470 


IF R C I > = THEN HPLOT - C 

J 1 v ^ J> ' V III WI 1 111 IbW 1 W 






bUB 430 ; GET A$ 


fl 47P 
Un r r 




Ml / A£T> « 1 S + 1^9 n Tfl 




z/u 


rUKt , U 


887C 




- Ci'I) / ACI) * 15 + 139.191 




ion 
ZOU 


1 C A-* — urn T Li CM D D T f IT PUD 

Jr A» — r 1 HtN rKlNI LHK 






i UU 1 U J J u 


1 905 




/ ,( i « D 1 *_l PTADT ! ID II 

» (4) RUN bTARlUr 


"Jut 


toll 


cno y = -0 7 TO 9 5 


D565 


ion 
290 


Dl IM 

K Ul ■J 




49H 

*T 7 U 






295 








<■ I 


BD8D 


Aro 


DCM 1MBDCCC PiCO CnitATTHMC 




500 


]F - Y * 15 + 98 > 189 OR 




297 




n n ia 

U U JM 




[ ft 1 wJ T TO \ w llr 1— J 1 w ~ W 


j 4 o 


inn 


T t ■ 1,1 ITAD "7 x T , UTAD 

I m 1 ▼ J.J VI HD % T I ! Ml RB 




n 

•J J u 


1 F H = THFN HPI fTT X * IS 

I r ii u i nui i nr lu i i u 






10 


D1B0 




+ 139, - Y * 15 + 98 


3BF0 


310 


IF A( I ) = 1 THEN PRINT "x " 




520 


HPLOT TO X * 15 + 139, - Y 






GOTO 350 


5A7B 




# 15 + 98 


A8F3 


320 


IF AU) = - 1 THEN PRINT • 




530 


H = 1 


5149 




- x GOTO 350 


7E91 


540 


NEXT 


0582 


330 


IF ACI) > THEN PRINT A(l) 




550 


NEXT 


0582 




. N v H , 
1 A • 


D132 


560 


RETURN 
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Avez-vous commande le quatrieme volet de nos petits recueils de 

routines en langage machine ? 

IM 65C02 ET 65C816 



compatibles Apple IIGS, bien sur 



Avec disquette : 160 F 



/ wan KCEHiG — APPLE HCS / 



Une exclusivife 
Tremplin Micro 



FREEZER 



Vous possedez un GS tout frois et vous vous 
inquietez, d jusle titre, du devenir de la carte 
mere, injustement martyrisee par des extinc- 
tions/ aHumages repetes, pour cause de confi- 
guration inadequate du RAMdisk. 

Vous avez en effet remarque que la selection 
effectuee au tableau de bord ne prend effet 
qu'a la suite d'une sequence extinction/allu- 
mage de la machine. Apres FREEZER, qui 
venait d votre secours sous ProDOS8 ( voild 
comme promts FREEZER, CDA, 

Lors du demarrage, la fonction MMBootlnit du 
Memory Manager s'oriente vers un demar- 
rage a froid ou a chaud, en fonction du contenu 
d'un octet, Comme a peu pres tout ce qui est 
dans le GS, cet octet peut se promener. II ne I'a 
pas fait a I'occasion du changement de ROAA, 
mais ca nous pend au nez. J'ai done choisi de 
recuperer son adresse dans le code me me de 
I'outil en question, en respectant scrupuleuse- 
ment les procedures d'approche reglementai- 
res. Rich WILLIAMS n'ayant pas repondu a mon 
courrier (pourtant vieux de pres de trois mois), 
je ne suis pas en mesure de garantir que le 
MMBootlnit commencera toujours de la meme 
facon,. II y a d ailleurs dejd un cas deviant. 

Lorsque Ton demarre sous PJ6 avec la vieille 
ROM (precipitez vous chez votre concession- 
naire pour la remplacer par la nouvelle), les 
outils en ROM sont largement patches et Je 
code MMBootlnit est remplace par un simple 
RTL. C'est pourquoi j'ai ete omene a introduire 
une identification de ROM provoquant un trai- 
tement en force dans le cas de la ROM. 00. 

J'espere que les commentates du source vous 
permettront de comprendre le fonctionnement 
de FREEZER. CD A. Celui-ci n'est pas publie 
dans la revue a cause de sa longueur, mais 
figure sur la disquette d'accompagnement. 

Pour ceux qui ne veulent pas (ou ne peuvent 
pas) s'offrir cette disquette, il est bien entendu 
possible d'effectuer une saisie directe du code 
HEX A, mats les caracteristiques du systeme 
PJ6 compliquent les choses. 



Je conseille d'effectuer la saisie en commen- 
cant en $2000, de sauver en mode BIN par 
BSAVE FRIZ,A$2000 f E$27FF, II vous sera alors 
possible d'utiliser SIGNATURE pour controler 
votre saisie, 

Lorsque tout sera d'aplomb, faites : 

• BLOAD FRIZ 

• CREATE FREEZER.CDA,T$B9 

• BSAVE FREEZER.CDA,A$2QO0.I$27FF,T$B9 

ATTENTION ! MERLIN 816 respecte les contra- 
intes du LOADER PJ6 f mais ne le fait pas exac- 
tement comme APW. De ce fait, les fichiers 
generes par ces assembleurs ne sont pas iden- 
tiques. La disquette T.M. reprend les deux ver- 
sions : APW et MERLIN. 

Pour ceux qui ne maitrisent pas APW (ou qui 
ont acquis, pour environ 150 francs, chez DDA 
ies seuies disquettes APW, APW.U et DEBUG- 
GER), je rappelle que les Clefs pour APPLE 
HGS, malgre quelques coquilles, contiennent 
une presentation d'APW et de lossembleur. 

Sous APW, il faut d'abord recopier FREE- 
ZER. SRC sur une disquette de travail 3 p. 1/2. 
Ensuite, depuis le SHELL taper : 

• MACGEN FREEZER.SRC FREEZER.MACROS 
2/AINCLUDE/M16 = afin de faire generer le 
ftchier Macros par APW. 

• Faire ensuite ASML + E +T FREEZER.SRC 
pour effectuer I'assemblage et le linkage'. 

Les parametres employes sont bien agreables : 

• -f T provoquera un arret de ('assemblage en 
cas d'erreur (quehe qu'en soit la nature), 

• +E vous renverra alors directement en 
mode editeur a 1'emplacement de l erreur. 

Inutile de repeter ces parametres d chaque 
tentative : ils sont memorises (jusqu'd ce que 
vous quittiez APW), II est cependant possible 
de les desactiver par -E ou -T. II existe d'autres 
parametres, mais ca suffira pour aujourd'hui, 

(suite page 42) 
■ / PACE** / — 



/ FREEZER / — 

If reste encore 6 taper depuis le SHELL : 

FILETYPE FREEZER CDA puis 
RENAME FREEZER FREEZER.CDA 

II ne m o pas ete possible de creer directement 
le fichier sous le nom definitif car APW cree un 
fichier de travail xxx.ROOT, ce qui limite la 
longueur du titre de creation a 10 caracteres. 



an UBATION 



Implantez FREEZER.CDA dans le directory 
/xxx /SYSTEM/DESK. ACCS de votre (vos) dis- 
quette(s) de demarrage. En cas de besoin, 
pour reconfigurer le disque virtuel ou pour 
changer de peripherique, passez par le 
tableau de bord. Effectuez les selections desi^ 



rees (tcille RAMdisk par exemple), puis appe- 
lez 'Birth of the Coo!', selectionnez le mode 
'demarrage a froia" et quittez le tableau de 
bord. 

Taper Pomme-Ctrl- Reset provoquera un rede 
marrage a froid qui, bien entendu, detruira le 
contenu eventuel du RAMdisk et validera vos 
selections. Le processus peut sembler longuet, 
mais c'est ainsi fait pour permettre eventuelle- 
ment de changer d'avis et de retablir le mode 
'a chaud' si vous aviez un remord de derniere 
minute. Seule la commande Pomme-Ctrl-Reset 
est irreversible. 

A l intention de ceux qui n'auraient pas com- 
pris, le titre 'Birth of the Cool' est un din d'ceil 
en hommage au nouveau docteur honoris 
causa de PARIS 10. a savoir : MILES DAVIS. 
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Plus de 200 pages. par Emile Schwarz Bulletin de commande page 68, 
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Comme ^'Applesoft, le GSBasic n'envoie que des caracteres ASCII negatifs vers I'imprimante, ce 
qui peuf produire des resultats surprenants lors du parametrage de la machine. Connaissant les 
caracteristiques particulieres de I'lmageWriter II (d'aucuns diront bugs), il est imperatif de lui 
envoyer des caracteres de controle exacts. 

Yvan KC6NIG s'est penche sur ce problerne... et moi de meme. Finalement, apres moult 
reflexions et plusieurs entretiens, conversations telephoniques, chacun d'entre nous a trouve 
une solution : une provisoire (ci-dessous) et une autre definitive, mais pour une prochaine ver- 
sion du langage ! 

Personnellement, j'ai juge plus commode de charger les fichiers '.tdf' lors du demarrage, plutot 
que de le faire dans chaque programme. 

Je vous conseille done de remplacer votre GSB. HELLO par celui qui suit : 



\UXFX'A 
15 THEN 




10 REM GSB. HELLO ameliore ! 

20 DEBUT: ASSIGN .PRINTER, -1 : REM Supprime . PRINTER 

30 ASSIGN .PRINTER, 1 : REM Installe .PRINTER sans AUTO-LF 

40 CLEAR 655 35: REM Reserve SFFFF de memoire 

50 PREFIX 6,"*/TDFS/" 

60 PRINT "Un instant SVP, j e charge les fichiers .tdf" 

70 LIBRARY " locator . tdf " 

8 LIBRARY APPEND "memory. tdf" 

90 LIBRARY APPEND "misctool . tdf " 

100 LIBRARY APPEND "quickdraw . tdf " 

110- LIBRARY APPEND "desk. tdf" 

120 LIBRARY APPEND "event. tdf" 

130 LIBRARY APPEND "sheduler . tdf ' 

140 LIBRARY APPEND "sound. tdf" 

150 LIBRARY APPEND "adb.tdf" 

160 LIBRARY APPEND "sane. tdf" 

170 LIBRARY APPEND "integer . tdf " 

180 LIBRARY APPEND " texttool . tdf " 

190 ON ERR GOTO erreur:REM Branchernent sur ERREUR s'il y a lieu... 

200 OPEN . PRINTER, FOR OUTPUT AS£1 

210 _setoutglobals (255, 0) :REM Fixe les masques AND et OR 

220 PRINT £1 ; CHR$ (27 ) "D"CHR$ { ) CHR$ ( 1 ) : REM Zeros barres. 

230 ERREUR: OFF ERR: REM Retablit le mode standard de traitement d'erreur 

240 _setoutglobals (255, 128) :REM Valeurs standards des masques. 

250 CLOSE £1 

260 FIN: END 



ATTENTION ! les valeurs des masques sont par defaut de : AND $00FF et OR $0080. La valeur 
$0000 du masque OR est valide, car elle ne filtre pas les caracteres. Si vous ulilisez des valeurs 
outres que celles-ci vous pouvez "planter" le systeme... 
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15 THEN 



Cest fait ! vous disposez de ce super Basic : le CSBasic. Mais comment charger une 
image, la visualiser ou tout simplement la sauver ? 



Utilisez-donc le programme UTILSHGR.GSB ! 

Parlons brievement de ce programme. Nous 
avons besom d'un peu de memoire : nous !a 
demandons a la ligne 10. II nous faut un 
tableau d'octets (structure) pour y stacker 
I'image ; ligne 60. Nous devons ensuite even- 
tuellement charger les f ichiers "tdf" (Toolbox 
Definition File) quickdraw.tdf et memory. tdf. 

Nous disposons de quotre procedures ; 

1, SAVEPIC qui sauve I'image SHGR. 

2, LOADPIC qui charge une image SHGR- 

3, PRESENTE qui trace un cadre a l ecran. 

4, CENTRE qui centrera tout message inferieur 
a 79 caracteres de long. 

Dans les procedures LOADPIC et SAVEPIC il 



faut changer la valour n dans FILTYP = n afin de 
charger des images NON COMPACTEES du 
type $C1 aux types $00 de 32K. La fonction $2B 
de I'outil $02 _blockmove permet de deplacer 
longd' octets depuis la position sou reed vers 
la position destd \ 

Soit : blockmove (sourcea , desto, longd). 

Autre difficulty : ne pas effacer un fichier lors 
du SAVEPIC. La fonction FILE{) est la pour nous 
aider ! En effet, FILE ("IMAGE") renvoie la 
valeur si le fichier nest pas sur cette dis- 
quette et 1 s'il est present. On appelle deux 
fois cette instruction : en ligne 270 lors du 
chargement, puis en ligne 370. 

Enfin il y a deux routines de traitement d'erreur : 
I'une qui stoppe \e programme (erreur), I'autre 
qui en reprend ('execution (erreurl). 



10 REM LOADSAVEPIC .GSB charge ou sauve une image 

20 CLEAR 65535: TEXT: HOME: ON ERR GOTO erreur 

30 DIM pic! £32767) : GRAF INIT 640 
40 DEBUT: REM 

50 LIBFIND "QdStartUp",ql%,q2%,q3% 

60 ON ql% GOTO SUITE 

70 INITOOL: LIBRARY "*/tdf s/quickdraw . tdf " 

B0 LIBRARY APPEND "*/tdf s/memor:y . tdf " 

90 SUITE: PROC presente 

100 VPOS=2:PROC centre { "Utilitaire de chargement /sauvegarde" ) 

110 VP0S=4:PR0C centre ( "d ' images en Super Haute Resolution") 

120 VPOS=6:PROC centre ( "Tremplin Micro & Entile Schwarz") 

130 VPOS=8:PROC centre ("(c) Janvier 1987") 

140 LOCATE 10,5:PRINT "C - Charge une image" 

150 LOCATE 11,5: PRINT "V - Visualise une image" 

160 LOCATE 12,5:PRINT "S - Sauve une image" 

170 LOCATE 13,5:PRINT "Q - Quitte" 

180 LOCATE 16,5;PRINT " - Votre choix: " ; :GET$choix$ 

190 choix$=CHR$ (ASC (choixS) -128) 

200 ON choix$="C" OR choix$="c" GOTO charge 

210 ON choix$="V" OR choix$= ,, v" GOTO visu 

220 ON choix$="S" OR choix$="s r ' GOTO sauve 

240 ON choix$="Q" OR choix$="q" GOTO quitte 
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VPOS=20:PROC centre ("Veuillez entrer le nom ProDOS complet") 

PROC centre ("de 1 ' image que vous voulez charger "> 

INPUT "Nom de 1' image: ";PicS 

X%=FILE (PicS) : IF NOT X% THEN erreur 

PROC loadpic (Pic$> 

HOME: GOTO suite 

HOME:VPOS-l2 

PROC cent re ("Pressez une touche pour faire apparaitre 1* image" ) 
PROC centre ("Une autre touche: retour au menu") 
GET$X$ 
GRAF ON 

GET$X$ : HOME: GOTO suite 

VPOS=20 :PROC centre { "Veuillez entrer le nom ProDOS complet") 
PROC centre {"de 1 1 image que vous voulez sauver ") 
INPUT f, Nom de 1 1 image : ";Pic$ 
PROC savepic (Pic$) 
HOME: GOTO suite 

OFF ERR : VPOS=2 G : PROC centre ("Au revoir...") 
END 

OFF ERR : NOTRACE : TEXT : HOME 
PRINT "Erreur n [ "ERR " ?"ERRTXT$ {ERR) ; 
print " a la ligne "ERRLIN: PRINT 
END 

def PROC savepic(a$) 

OPEN a$, FILTYP=6 FOR OUTPUT AS£1 
desta=*VARPTR(pic ! (0) ) 
sourcea=147537 92 
longa=327 68 

_blockmove (sourcea, desta , longa ) 
PUT£1, 32767, 0;pic! <0) 
CLOSE£l 

END PROC savepic 
DEF PROC loadpic (a$) 
OPEN a$, FILTYP=6 FOR INPUT AS£1 
GET£1, 32767, 0;pic! (0) 
sourcea-VARPTR (pic ! (0) ) 
desta=14753792 
longa=32768 

_blockjnove (sourcea, desta, longa) 
END PROC loadpic 
:DEF PROC presente 
TEXT : HOME 

PRINT REP$ ("-'*, 80) ; 
FOR I%=0 TO 16 

PRINT " ■ "SPACES (78) " ! " ; 

NEXT 

PRINT REP$ ("-", 80) ; 
END PROC presente 
DEF PROC centre (a S) 
LOCAL a% 

a%=40-LEN (a$) DIV 2 
HPOS=a% : PRINT a$ 
END PROC centre 



Em ile SCHWARZ vous 
propose le fruit de son 

experience dans un 
ouvrage en FRANQMS : 

Ala 

deeouverte du 

GS Basic 

Collection TREAAPLIN MICRO 
Parution vers le 15 mars 

Plus de 200 pages 
avec disquette d'exemples. 

FRANCO : 300 F 

Bulletin de commande page 68. 
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TURBO BASIC 



La version francaise de TURBO BASIC, un produif 
Borland, est disponible et je la conseille a tous 
ceux qui, disposant du MS-DOS (pourquoi pas sur 
Apple ?), desirent dynamiser leur Basic. 

Ce qui surprend toujours un peu, dans un produit 
Borland, c'est une vitesse de compilation a laquelle 
ne nous avail guere habitues les editeurs de compi- 
lateurs. Souvenez-vous par exemple du TASC, que 
vous utilisiez avec votre Basic Applesoft ! 

L EDIT EUR 

Les comrnandes de I'Editeur sont voisines de ceiles 
de WordStar (de MicroPro) avec, parfois, une diffe- 
rence interessante. C'est ainsi qu'une fonction de 
rappel permet de faire reapparaTtre les modifica- 
tions apportees a une ligne, quand on est encore 
dessus. Bien sur, il faut retenir toutes les comrnan- 
des et une carte aide-memoire serait la bienvenue, 
au moins pour ceux qui n'ont pas I'habitude des 
traitements de textes. 

LE BASIC 

Mais Turbo Basic est d'abord et surtout un Basic 
performant, tout a fait conforme aux normes 
actuelles des versions les plus recentes de ce Ian- 
gage de base. C'est dtre que Ton y frouve non seu~ 
lement toutes les instructions et fonctions que con- 
naissent les utrlisoteurs habituels, mais quelques 
autres, fort agreables. Avec Turbo Basic, vous 
n'ecrirez plus : 

T = T + 1, maislNCRT 

T = T — 1, mais DECR T 
ce qui n'empeche pas le compilateur de traduire les 
anciennes formulations. Vous direz adieu aux 
numeros de lignes (qui restent possibles) et utilise- 
rez les labels, tellement plus evocateurs lorsqu il 
faut relire ou modifier un programme. 

L EXECUTION 

Le togiciel de Borland vous fournit un code executa- 
ble qui fonctionnera directement sur n'importe 
quelle autre machine compatible. Bien sur, il n'y 




VfMSfON POUR 
COMPATIBLES 



aura aucune comparaison entre la 
rapidite d'un programme en TURBO 
BASIC et celle du meme programme 
ecrit en Basica ou GWBasic. Ce n'est 
pas de I Assembleur, mais cela s en 
rapprocbe un peu ! 



COHCLUSIOM 

Quand on est amene, comme moi, a 
essayer divers langages (sans jamais 
en maTtriser aucun ! ), on constate que 
dans leurs versions actuelles, ils se 
ressemblent de plus en plus. 

C'est vrai pour le Pascal et le C , mais 
cefa le devient aussi pour le Basic, 
grace a 1'ulilisation des etiquettes, 
mais aussi destructions comme 
While/Wend (boucle commen^ant 
par un test) et autres Local (declara- 
tion de variables locales a un sous- 
programme),.. 

On nous parie souvent de langage 
naturel, mais j'avoue que, pour moi, 
c'est un peu ce qu'est devenu — et plus 
encore dans sa version TURBO de Bor- 
land — le Basic de mes debuts ! ■ 



^— ^— ^— — ^— / cs Basic / — 

Premieres surprises am le CS BtlS/C 



Cher Tremplin Micro, 

Tout d'abord, mere! pour les informations et les programmes dont vous nous comblez. En 
particulier : merci d'avoir annonce la sortie du Basic GS, avant tout le monde. 

Ce nouveau Basic est interessant et prometteur, mats j'avoue me heurter a quelques pro- 
blemes. Les avez-vous rencontres, ou sont-ils dus a un defaut de ma disquette, a une 
mauvaise configuration de mon appareil/age, etc, ? 

Ce Basic, du moins dans la version que je possede, genere au clavier des codes ASCII 
au dela de 128. Le code renvoye par la touche (RETURN) n'est pas 13, mais J41 etc., ce 
qui perfurbe un certain nombre de tests et entraine en cascade un mauvais fond ion* 
nement de certaines fonctions et par exemple UCASE$, comme ci-dessous : 

10 PRINT 'appuyer sur la touche A majuscule ; ";:GET$AS 

20 IF A$ < >"A" THEN PRINT ASC(A$);" et ";A$C("A");'' differents" 

30 PRINT "appuyer sur la touche o minuscule : ";:GET$o$ 

40 PRINT UCASE$(a$);" et ";UCASE$("a");" sonMlj identiques ?" 

Ce programme m'affiche : 193 et 65 sont differents 

a et A sont- i Is identiques ? 

• En outre, je constate un mauvais fonctionnement de FRE (ainsi que de EREMEM,..), 
notamment apres ('utilisation de fonctions definies retournant des chames de carac- 
teres ! Est-ce lie au probleme des codes ASCII ? Void un court programme qui ne 
passe pas sur mon appareil et qui retourne le message sibyllin suivant : 

?D AM AGE REPORT, SCOTTY? 

CAP'N, THE LITERAL POOL IS COMPLETEL Y FRIED ! ! ERROR IN 40 

10 DEF FN CAR$(R$) = CHR$(7)+ R$ 

20 AS -"A" 

30 RS = FN CAR$(A$) 

40 X = FRE 

50 PRINT R$ 

Vous trouverez page suivante ie fisting dun programme plus complet, qui le met egale- 
ment en evidence, en montrant que le probleme n'existe pas avec les fonctions 
numeriques. 

Ceci se produit a d'autres occasions, meme sans ufiliser FRE ou les fonctions definies. En 
consequence, dons les programmes que j'ai pu reafiser, la memoire reservee oux chai- 
nes de coracteres, appa rem ment limitee d 64 ko hefas, se sature peu a peu et quand 
Basic tente, de lui-meme, de compacter cette memoire (bien avant d'otfeindre les 64 ko 
fatidiques), mes programmes se bloquent en retournant le message cite precedemment. 

J.-P. D. (21000 DUON) 

— ^ — — — — — — — — / PACE 49 / — 
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Programme plus compiet : 

10 HOME:PRINT "Probleme de FRE !!!'*: 

PRINT 
2ff X = FRE 

3ff PRINT " toper lur one touche I 
40 GOSUB SAISIE 

50 R% = FN CAR(R$):REM cette fonction 

numerique ne pose pas de probteme 
60 X = FRE 

70 PRINT " une outre touche, svp : "; 
80 GOSUB SAISIE 

90 R$= FN CAR$(R$):REM cette fonction 
chaine declenche le probleme du FRE ! 



100 X = FRE 

110 PRINT "Le programme n'arrive jamais Id 

si lo ligne 100 n est pas otee ! " 
120 END 

130 REM 

140 DEF FN CAR(R$) = CONV(CHR$(ASC(R$) 
MOD 128)) 

150 DEF FN CAR$(R$)~CHR$(ASC(R$) MOD 
128) 

160 REM 

170 SAISIE: GETSRS 

1 80 PRINT " le code ASCII est : " ; ASC(RS) 
190 RETURN 



REPONSE D Wan KOENIC 



Vous ne revez pas, et voire machine n'est pas en cause. Vous avez rencontre deux bugs. 

• Le premier concernant GETS a deja ete repere et signale. II manque apparemment un AND 
£$7F dans un coin. On peut le contourner en operant systematiquement la conversion comrne 
vous le faites dans votre dernier programme. 

• Le second m'avait echappe (ce qui n'est pas etonnant), de meme qu'a Emile SCHWARZ qui a 
pourtant bien etudie la bete ! 

II semble que FN CAR$ utilise un tampon de travail qui devrait etre provisoire, mais que FRE 
omet de liberer. Ce bug est actuellement INCONTOURNABLE, mais je viens d'envoyer sa des- 
cription detaillee au groupe GSBASIC a Cupertino. 

Le seul remede est de ne pas utiliser de fonction de chaine. Remplacez votre FN CARS par une 
procedure et tout ira bien. y. k, <ia [an«i«r I98B) 



2 


REM * BUGFRE * 


2 


REM * N O BUG a- 


120 PROC FCAR(AS) 


3 


REM 


3 


REM 


130 PRINT R$,FRE 


10 


X = FRE r PRINT X 


5 


l%=0 


135 NEXT 


20 


DEF FN CAR$(R$) = "A" + R$ 


10 


X-FRE:PRINT X 


140 END 


30 


PRINT FRE 


20 


DEF FN CAR$(R$) = "A"+R$ 


150 DEF PROC FCAR(X$) 


40 


A$ = "A' r 


30 


PRINT FRE 


160 R$ = CHRS(7)+X$ 


50 


PRINT FRE 


40 


AS^'A" 


170 END PROC 


60 


A$ = A$+A$ 


50 


PRINT FRE 




70 


PRINT FRE 


60 


A$ = A$+A$ 




80 


RS = A$-f"R" 


70 


PRINT FRE 


90 


PRINT FRE 


80 


R$ = A$+ "R" 




100 


R$= FN CAR$(A$) 


90 


PRINT FRE 




HO 


PRINT R$.FRE 


100 


PROC FCAR(AS) 


I rreui J 


120 


R$ = FN CAR$(A$) 


110 


PRINT RS FRE 


130 


PRINT R$,FRE 


115 


FOR 1% = 1 TO TO 
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• PROGRAMMER EN C 
ET TURBO- C 
(Claude Nowakowski) 

Cel ouvrage s'adresse oux program - 
meurs sur PC et compatibles, et plus spe- 
cialement 6 ceux d'entre eux protiquant 
de|d un outre langage. Modeste dans son 
propos I'auteur fail le lour de la question 
el son livre constitue en reality une 
bonne initiation ou C et bien sur ou TUR- 
BO-C de Borland. II convient de noter au 
passage que tous les programmes (nom- 
breux) illustrant les explications de 
Claude Nowakowski ont ete testes avec 
les qualre compiloteurs les plus connus : 
Micosoft, Lattice. De Smet et Turbo-C ■ Si 
le debutant aura interet a etudier lo pro- 
grommation strucluree a travers les 
courts exemples du chapitre 2. I'amaleur 
de Pascol pourro ignorer ce meme chapi- 
tre pour passer a des programmes dej& 
plus ambitieux, comme celui realisant un 
menu deroulant, Un volet de plus dans la 
collection langages du P.S.I.. mais un 
volet ouvert sur un monde donl on por* 
lera de plus en plus chez les program- 
mers, celui du C ■ NEsrof. 

P.SJ., 5 place du Cobnel-Fabien JSOI0 PARIS - 
W. (I) 42.40-22-01. 160 pages 125 E TTC 



• LE LANGAGE TURBO-C 
(Christophe Donay) 

J a i dejd ecrit tout le bien que je pense du 
langage C . probablement I'un des plus 
portables et, surtout, Tun des plus pea- 
ches de I'assembleur. Helos ! jusqu'au 
Turbo- C de Borland, lo compilation se 
rev e la if fastidieuse porce que trop ton- 
gue. C'est devenu un plaisir ! Que peut 
apporter un ouvrage comme celut-ci, pre- 
cisement consocre au Turbo-C, a un 
applemoniaque convaincu 9 N'en doutez 
pas : une bonne connaissance du compi- 
loteur le plus performont du marche... 
mais encore ? Je crois savoir que les pos- 
sesseurs d Apple IIGS (et meme d Apple 
//) vont pouvoir mettre un PC (transpor- 
ter) dans leur machine... si bien que la 
plupart des logiciels tournant sur PC et 
compatibles deviendront pour eux des 
reolttes ! En attendant, documentez- 
vous, mes freres, et si vous etes fentes 
par un C rapide et performont, enrichis- 
sez votre bibliotheque avec le bouquin de 
Christophe Donay. C'esl un guide d'utili- 
sation cloir et cone is. ciam»nt renakd. 

EDtTCSTS Diffuse par le P.S.I, (voir ctcontre} 
190 pages 195 f TTC. 



• LE LIVRE D'HYPERCARD 
(P, Brandeis et J. Kertesz) 

lis nont pas perdu de temps ! Qui ? 
mois les auteurs. bien sur ! HyperCard. 
Macintosh up to date, ce n est pas du 
rechauffe ! Tenez ! je vais vous laire un 
aveu : avant de parcourir les 300 poges 
(tres illustrees) de ce logiguide, je n'avais 
pas reellement campris a quoi ca pouvait 
servir. Maintenant, je sois. HyperCard 
rendro effeclivement de grands services 
aux utilisateurs du Mac... et au Mac lui- 
meme, toujours en avance dune revolu- 
tion sur les outres machines. 
HyperCard n'existe en francais que 
depuis peu de temps, mais les posses- 
seurs d une version americaine trouve- 
ront dans ce guide des menus anglois 
et francais en vis-a-vis. ainsi qu'un 
lexique onglois-francais de tous les 
termes d'HyperCard. 
Precision utile : les auteurs onl pre- 
pare deux disquettes pour accompa- 
gner ce livre. Je n'ai pas eu la possibi- 
lite de les tester, mais elies existent et 
vous pourrez les commander. nestor. 

P S,l- — 300 poges — 165 F TTC 



• MENUS 

ET INTERFACES 
(Dominique Chaniat) 



EDITES7S (voir plus hour). 



On sait combien est difficile, pour le concepteur d'une application, la realisation d'une bonne 
interface enfre les utilisoteurs et le programme. Conviviality efficacite... et securite obli- 
gent ! Dominique Chaniat destine son livre aux programmers et oux etudionts. Je n'ai pos 
pu tester les programmes de cet ouvrage, mois une disquette existe, proposee en option. II 
seroit d mon avis souhaitable, pour un livre comme celui-ci, de joindre lo disquette ou livre, 
comme le lait maintenant Micro-Application. II reste que les exemples choisis par I'auteur 
sont interessants et clairement expliques. lis sont ecrits en Turbo Pascal, mais leur transposi- 
tion eventuelle ne devroit pas poser de problemes insurmontables d des progrommeurs 
confirmes. sur PC ou compatible, bien sur. element Rf nak> 
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PC Transporter 

Le MS-DOS sur votre Apple ! 



II est la. Je I'ai bel et bien teste, grace a la bienveillance et a la competence de la 
Societe BREJOUX AE, en la personne de son representor, J.-M. Bresard. II 
s'agit, vous i'avez compris, du PC Transporter d 'Applied Engineering, 
Mais j'ai eu chaud. . . (isez plufot I 



Catastrophe f 

Mereredi : Enfin en possession de la carte et de 
son kit de montage, jinstalle le tout sur un Apple 
HGS (nouvelle ROM) avec ecran monochrome. 
Je lance le systems, Rien. Mon PC Transporter 
n'existe pas. Du moins est-ce le sens du message 
que je lis sur mon ecran. 

Je parcours la doc en francais accompagnant le 
bouquin en anglais (j'aurais du commencer par 
Id !). Verification des connections. Elimination 
des cartes superflues (on ne sail jamais !). 
Reboot. Toujours rien. 

Je lis la doc en entier. Rereboot. Meme (mau- 
vais) resultat. Et je me suis fait reserver 3 pages 
dans le numero 19 de LM. ... plus une annonce 
sur la couverture d'icelui.,, la catastrophe 1 

zorro est arrive ! 

J.-M. Bresard me telephone. II vient aux nouvel 
les. II a 1'habitude de depanner des gars dans 
mon genre, tellement surs d eux qu'ils n'ecou- 
tent guere les conseils et font fi des documenta- 
tions les mieux redigees. II setonne et me pro- 
pose de venir (de Lyon) installer ma carte a Cha- 
tellerault. Moi, je refuse, persuade que le PC 
Transporter est atteint d un mal incurable. II 
insiste... 

Jeudi : J.-M, Bresard est bien la. II a fait Lyon- 
Poitiers dans un coucou des lignes interieures. 
Sur que le situation vo s'ameliorer. 
Helas ! Le GS refuse de communiquer avec 
MS-DOS. Noturellement, J.-M. Bresard, certain 



de I'excellence de ses cartes est arrive avec une 
panoplie de lecteurs et de disquettes, mais sans 
un PC Transporter de secours. 
II report... soucieux et confiant a la fois. 

Bonne nouvelle 

Vendredi : Du nouveau de chez Brejoux. La 
carte, avec le kit actuel, refuse tout betement 
I' ecran monochrome du GS, mais ga va s'arran- 
ger (c'est probablement resolu a I'heure qu r il 
est). On me la renvoie par chrono-poste (service 
extra des P.T.T.). Je la monterai done sur un 
autre GS, equipe d'un ecran couleur. 

St VOiCi MS-DOS f 

Samedi i Le colis est bien Id. Entier. En vieil habi- 
tue de la connexion du PC Transporter, je I'ins- 
talle, en moins de temps qu'il n'en faut pour 
lexpliquer, sur mon second GS, celui qui est 
dejd dote d un disque dur de la Societe Brejoux. 
Boot ! £a ronronne. Voici le menu. Doc en main, 
je respecte les sages conseils du traducteur... et 
j obtiens enfin le prompt du MS-DOS. C'est fait : 
j'ai un PC compatible dans mon Apple //GS, On 
peut signaler au passage que la meme operation 
est possible avec un Apple lie, mais se revele 
plus onereuse. 

Revenons a nos moutons 

Tout cela, c'est bien joli et j'en connais dejd des 
milliers qui se disent : r 'Moi, je veux ce truc-ld, 
mais comment ;a marche ?". Et, question non 
moins importante : "Qu'est-ce que c.a va me cou- 
ter ?". Si vous disposez dejd d un GS avec deux 
lecteurs 3,5 (tail le basse platinium), ca vous 
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coutera tout juste le prix de la carte et du kit 
d'instal lotion. 

Votre PC Transporter a absolument besoin d'un 
lecteur type platinium (ou, a defaut, de lecteurs 
speciaux 5,25, vendus par Applied Engineering). 
Vous disposerez de cette fagon du MS-DOS sur 
disquette 3,5 (que vous pourrez formater, lire et 
ecrire 6 votre gre). Si vos produits MS-DOS sont 
sur des supports 5,25, la Societe Brejoux vous les 
copiera volontiers sur supports 3,5 (pourvu qu i Is 
soient copiables). Notez que la plupart des logi- 
dels tournant sous MS-DOS sont maintenant 
livrabies sur disquette 3,5 (il suffit de le deman- 
der}. Par contre, votre second lecteur 3,5 (celui 
relie a la carte interne de I'Apple) sera indiffe- 
remment un unidisk faille basse blonc... ou un 
lecteur up to date platinium. 

Ledisquedur 

II est reconnu... surtout s'il sagit d'un produtt 
BREJOUX, mais je suppose qu'il en va de meme 
pour les autres. 

Personnellement, j'ai dote mon MS-DOS de cinq 
megas, voles a ProDOS. Je me suis meme offert 
une memoire virtuelle (volatile, comme les 
oiseaux) de 360 Ko. Tout cela fait bon menage et 
je me retrouve done avec ; 
A : Pres de 800 Ko sur disquette 3 pouces. 
C : 5 megas sur disque dur, 

D : Memoire virtuelle (nullement obligatoire et, 
dans le cos present, trop importante pour 
que de gros programmes en Basic puissent 
tourner). 

Control Panel accessible 

Le Control Panel du GS reste accessible avec les 
touches habituelles, y compris sous MS-DOS. 

II est par ailleurs facile, en conjuguont une pres- 
sion sur la touche MAJUSCULES et deux pres- 
sions sur la touche CAPS LOCK d'aceeder au 
menu principal du PC Transporter ... et la, tout 
est possible : 

• Passer en ProDOS. 

• Rebooter... 



• Reconfigures 

• Revenir au MS-DOS. 



Clavier CS ou PC 7 

Vous pourrez evidemment faire racquisition d un 
clavier PC pour votre PC Transporter. C'est 
prevu. La connexion aussi. On peut s'en passer. 



La compatibilite n est certes pas totale, mais le 
clavier du GS donne satisfaction a deux touches 
pres, celles situees de part et d'autre de la barre 
d'espacement (elles sont inversees... allez, done 
savoir pourquoi !)» On peut raisonnablement 
penser que Brejoux saura bientot resoudre ce 
problerne mineur. 
Pour le reste, c'est O.K. : 

ALT devient Pomme blanche 

CTRL c'est evidemment Control 

Fl a Fl sont obtenues par Pomme pleine + 1 o Q 

NUM LOCK par Pomme pleine N 

Laffichage 

Vous disposerez, en Basic, du graphisme, de la 
couleur et du son (attention ! aucun langage 
n est livre avec le PC Transporter). Sous MS-DOS 
pur r vous aurez un ecran noir et bianc pas du 
tout desagreable (on vous expliquera plus tard 
comment modifier ces couleurs a partir du 
prompt), L affichage m a paru rapide. Une courte 
routine en assembleur, affichant un ecran, sem- 
ble a premiere vue aussi performante sur le GS- 
PC que sur un compatible PC, 
Je vous !a propose page 54. Elle vous affichera 
instantanement un ecran comportont une fene 
tre. Je vous en laisse la surprise. 

Transfert ProdosMS.oos 

C'est bien vrai : vous pourrez transferer, sur 
votre disquette ProDos, les fichiers MS-DOS. . et 
vice-verso. C'est ainsi que je dispose mainte- 
nant, sur une disquette MS-DOS 3,5, d un gros 
fichier a acces direct de 125000 octets, en prove- 
nance directe d une disquette 3,5 ProDOS. Ce 
transfert est obtenu par menu, en laneant un 
programme tout naturellement appele TRANS- 
FER. II est difficile de reussir plus simple. Je vous 
signaie au passage que ce n'est pas intermina- 
ble : les deux lecteurs ronronnent gentiment 
pendant quelques dizaines de secondes (je n'ai 
pas chronometre). 

Par contre, mes caracteres accentues sont rem- 
places par les caracteres correspondants... ame- 
ricains. Je suppose que mon installation n'a pas 
ete correcte. Detail mineur. De toute fagon, il 
faut retraiter les fichiers pour mettre les accents 
circonflexes et les tremas sur les lettres. Ben 
oui : sur votre Apple-PC, vous disposez aussi de 
cet avantage non negligeable : de vrais caracte- 
res accentues a l affichage. (suite page 54). 
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Sur 40 co/onnes 

Amusant I avec votre GS couleur, lorsque vous 
etes sous MS. DOS, il vous suffit de toper MODE 
40 pour posser en 40 colonnes avec de gros 
carocteres. MODE 80 vous permet de revenir a 
I'affichoge standard. 

CONCLUSION 

Ce premier contact avec le PC Transporter s'est 
revele satisfaisant et ]e pense que ce materiel 
rendra de grands services a de nombreux pos- 
sesseurs de GS, travaillant sur PC ou compatible 
dans leur entreprise. Le pont est etabli entre les 
deux standards. C'est tout de meme mieux qu'un 



modem et cela permet d'utiliser, sur Apple, cer- 
tains logiciels tournant sous MS, DOS, mais ce 
n'est pas pour autant (a panacee. 

On me reproche parfois de "m'emballer" trop 
facilement pour des produits qui ne tiennent pas 
toujours la route. C'est vrai que je suis un vieux 
— et pas si sage que cela ! — passionne de 
Innovation et il est non moins exact que j oime 
faire partager mes enthousiasmes. 

PC Transporter porie le label d'Applied Enginee- 
ring : c'est une bonne reference. La Societe Bre- 
joux a par ailleurs donne mointes preuves de son 
serieux a des milliers de clients. 
A vous de jouer ! Hestor. 



SCR.COM 



Pour taper cette courte routine, verifiez d'abord que vous 
disposez bien de DEBUG (disquette MS. DOS). 
Tapez ; 

A: DEBUGSCR.COM 
-A 100 

-100: MOV DX> 00 etc. 

En fait, a la suite A 100, DEBUG affichera 100 ;. 

Vous rentrerez alors MOV, tabulation, DX r 00, return. 

Meme processus pour les lignes suivontes. Ne tenez 

aucun compte de I'adresse figurant en debut de colon ne 

(ici : 2055). 

Quand votre soisie sera terminee, tapez return d cote de 
12D : r puis -r cx ... et la reponse a cote des deux points 
qui apparoitront ; 2C. 
Memorisation par un simple W. 

Q permet de (Q)uitter DEBUG. Vous pouvez, a partir de 
DEBUG, lancer la routine en tapant G. 
Lorsque vous serez sorti de DEBUG, un simple SCR, suivi 
de return, lancera aussi la routine. 



-u 100. 12C 




2055:0100 


BAQ000 


MOVDX.0000 


2055:0103 


B402 


MOVAH.02 


2055:0105 


CD10 


INT10 


2055:0107 


90 


NOP 


2055:0108 


B40A 


MOVAH.0A 


2055:010A 


B9A00F 


MOVCX.0FA0 


2055:010D 


B0B1 


MOVAL.Bl 


2055: 010F 


CD10 


INT10 


2055:0111 


90 


NOP 


2055:0112 


BA0805 


MOVDX.O508 


2055:0115 


B402 


MOVAH.02 


2055:0117 


CD10 


INT10 


2055:0119 


90 


NOP 


2055:01 1 A 


B40A 


MOVAH.0A 


2055:01 1C 


B93F00 


MOVCX.O03F 


2055:011 F 


B0 20 


MOVAL.20 


2055:0121 


CD10 


INT10 


2055:0123 


90 


NOP 


2055:0124 


FEC6 


INCDH 


2055:0126 


80FE13 


CMPDHJ3 


2055:0129 


72EA 


JB0115 


2055:0 12B 


CD20 


INT20 


-r cx 






CX: 2C 






- w 






Ecriture 00 


2C octets 





REPONSESA QUELQUES QUESTIONS 



Faut-H acheter un boitier duodlsk special "PC 
Transporter pour lire les disquetles IBM 5,25 ? 

Ce n'est pos obligotoire. Si vous possedez deja deux 
lecleurs 3.5. la solution 3,5 sera pour vous plus econo- 
mique. Vous frouverez toujours a faire copier vos dis* 
quettes MS. DOS 5,25 sur 3,5 ou.. le contra ire. De 
plus, le standard 3,5 est celui de I'avenir. A mon avis, 
il vaut mieux doter un PC ou compatible d'un lecteur 
3,5 qu'un Apple d un lecteur 5,25... 



Quel est fe prix de vcnte du PC Transporter ? 
Pour une configuration 640 K (memoire dispo- 
nible sous ProDOS), la carte (plus son kit d installa- 
tion) est vendue 4200 F HT (approximativement) aux 
abonnes de Tremplin Micro. Prix public : 4900 F HT, 

| Q | La presence d un disque dur est-elle obligotoire ? 

Absolument pas, mais c'est un element de confort non 
negligeable. ■ 
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/ Robert C A ZEN A VE — APPLESOFT / 

APPRENTISSAGE 
DU CLA VI ER 

Toper avec un, deux... ou un maximum de doigts ? Robert CAZENAVE 
vous propose une methode qui, a notre avis, presente un tnteret certain. 
Essayez-la sans plus attendre ! 



100 PRINT CHR* <4)"PR£3" BB42 
105 TEXT ; CLEAR : HOME : SPEED= 180: VTAB 5: PRINT "VIVE *L A *S VTAB 

8; PRINT "D A C T Y L 6 R A P H 1 E" 
110 N = 255: SPEED= N 

115 VTAB 20: PRINT "VEUILLEZ PAT] ENTER S.V.P," 

120 DIM A(220> ,PH*<34) ,X(12) FA84 
125 : 

130 REM * 0=NBRE TOTAL DATA ALPHA/B=NBRE DATA MOTS 
135 D = 1?:B = 12 
140 : 

145 FOR K = TO 220 s READ A< K) : NEXT 

150 FOR K = 1 TO D: READ PH*\K>: NEXT 

155 TEXT : HOME ;F = 0:PHf = " " : Y = OjS = 0: GOTO 645 

160 : 

165 REM * CLAVIER MINUSCULE * 

170 : 003A 
175 NORMAL : UTAB 6: HTAB 6 3AB5 
180 PRINT "ESC & * " ; CHRS < 34 ) ; " ' < § e 1 <; a > - delete" 1D62 
185 UTAB 8: HTAB 6 A5E0 
190 PRINT "->/ a z e r t v u j o p ' * n 41D6 
195 VTAB 10: HTAB 6 

200 PRINT "CTRL q s D -f q h j K 1 m ti ' " C0 9A 

205 VTAB 12: HTAB 6 

210 INVERSE : PRINT " u ; : NORMAL : PRINT " < w x c v b n ,;:="; : INVE 

RSE : PRINT • " 489D 
215 VTAB 14: HTAB 14: PRINT " ": NORMAL 5B8B 

220 POKE 34,18 EFB5 
225 RETURN 

230 ! 00 3A 

235 REM * CLAVIER MAJUSCULE * 

240 : 003A 
245 NORMAL : VTAB 6: HTAB 6 3AB5 
250 PRINT "ESC 1 234567890 delete" 

255 VTAB 3: HTAB 6 A5E0 
260 PRINT "->/ A 2 E R T Y U I P * M 2EFC 
265 VTAB 10: HTAB 6 

270 PRINT "CTRL 'Q S D F G H J K L H '/. £" 9E06 
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275 VTAB 12: HTAB 6 

280 INVERSE : PRINT " NORMAL : PRINT " ") W X C V B N ? ./+ ";: INVE 

RSE : PRINT * 
285 VTAB 14: HTAB 14: PRINT " " " : NORMAL 
290 POKE 34,18 
295 RETURN 

300 : 003A 
305 REN * REPONSE **** 

310 : 003A 
315 FOR I « 1 TO LEN (PH*) 41 7C 

320 GET R*: IF ASC CR*> = 27 THEN 155 

325 IF R* < > MID* C PH* ,1,1) THEN F = F + 1: PRINT CHR* <7>:: GOTO 320 
330 PRINT R*; 

335 NEXT 0582 
340 RETURN 

345 : 003A 
350 REM * CADRE VIDEO INVERSE * 

355 : 003A 
360 VTAB 5: CALL - 958 

365 FOR K - 1 TO 40: VTAB 5: INVERSE : PRINT " ":: NEXT : FOR K = 1 TO 40: 

VTAB 21: PRINT 1 ":: NEXT 
370 FOR K = 5 TO 21: VTAB K: HTAB 1: PRINT " ■ : HTAB 40: VTAB K : PRINT " " 

: NEXT : NORMAL 
375 POKE 33,37: POKE 32,2: POKE 34,6: POKE 35,20: HOME 
380 RETURN 

385 : 003A 
390 REM * SUITE DE L'EXERCJCE * 

395 : 003A 

400 HTAB 4: VTAB 19: PRINT "NOMBRE DE FAUTES DE FRAPPE ":F 

405 VTAB 23: HTAB 8: PRINT "> BARRE D'ESPACEMENT <•';: GET R* : VTAB 23: HTA 

B 1; CALL - 868 :F = 0: HOME 
410 RETURN 63B1 
415 : 003A 
420 REM * EXERCICES * 

425 : 003A 
430 HTAB Is VTAB 19: CALL - 958: PRINT "EXERCICE:" A3FC 
435 S = KK + 5: IF S > K THEN S = K 

440 FOR I = KK TO S i?44 
445 PH* = PH* + CHR* <A<1)> 

450 NEXT 0582 
455 VTAB 19: HTAB 18: CALL - 958: SPEED= 180: PRINT PHI 

460 SPEED= 255 2F45 
465 VTAB 21: HTAB 18: GOSUB 315 

470 IF F > 3 THEN SPEED= 100: VTAB 23: HTAB 1; PRINT "TROP D ' ERREURS - RE 
COWENCEZ" ; : PRINT CHR* C7)fJ SPEED= 255 :PH* = "":F - 0: VTAB 19} HTA 
B 30: CALL - 958: GOTO 440 

475 IF S = K THEN VTAB 23; HTAB 1: PRINT "VOULEZ-VOUS CONTINUER <0/N)?":: 
GET R*J IF R* < > "N" AND R* < > - 0" THEN PRINT CHR* <73?l GOTO 47 
5 642C 

480 IF R* = '0" THEN 155 

485 IF R$ = "N" THEN 155 40E4 
490 PH$ - " : F = OsKK = S: GOTO 435 48C4 
495 : 003A 
500 REM * T 3 RAGE ALEATOI RE * 



/ Robert CA2EN AVE — APPLESOFT / 



505 : 003A 
510 FOR K = 1 TO 10 

515 X m 1 + INT < RND <1> * N> : IF X < 33 OR X > 126 THEN 515 
520 PH* = PHS + CHR* <X) 
525 NEXT 

530 VTAB 8: PRINT PH* 15BA 

535 "/TAB 15: GOSUB 315 

540 GOSUB 40 0:PHS - GOTO 510 

545 : 003A 
550 REM * TI RAGE ALEATQI RE DATA MOTS * 
555 : 

560 X = INT < RND CD * 100): IF X < 1 OR X > B - 1 THEN 560 

565 Y - Y + 1 :X(Y) = X 14DF 

570 FOR K = 1 TO Y: IF X = X(K - I) THEN Y = Y - 1 : GOTO 560 

575 IF Y - B - 1 THEN HTAB 4: VTAB 19: PRINT "FIN DE L y EXERCJCE" : GOSUB 4 

05: GOTO 155 
5B0 NEXT 

595 PH* = PH$<X>: VTAB 8: PRINT PHi 
590 VTAB 15: GOSUB 315 
595 GOSUB 400: GOTO 560 

60 : 00 3A 

605 REM * AFFICHAGE PHRASES * 

610 : 003A 
615 X = B + Y: IF X = D + 1 THEN 155 

620 PH* = PH*<X): VTAB 8: PRINT PH*: VTAB 15; GOSUB 315 
625 GOSUB 400 :Y = Y * 1: GOTO 615 

630 : 003A 
635 REM * MENU * 
640 : 

645 INVERSE : PRINT "M E N U" :: HTAB 30: PRINT "ESC=MENU": NORMAL 
650 VTAB 6: HTAB 10: PRINT "1- INTRODUCTION" 

655 VTAB 7: HTAB 10: PRINT "2- AUR I CULAI RE" : VTAB 8: HTAB 10: PRINT "3- AN 
NULA1RE": VTAB 9: HTAB 10: PRINT "4- MA J EUR" : VTAB 10: HTAB 10: PRINT 
"5- INDEX" 

660 HTAB 10: VTAB 11: PRINT "6- N OMBRES ET MAJUSCULES": HTAB 10: VTAB 12: 
PRINT "7- CARACTERES AU HASARD" : HTAB 10: VTAB 13: PRINT " 8~ TAPER DES 
MOTS": HTAB 10: VTAB 14: PRINT "9- TAPER DES PHRASES 
665 HTAB 10: VTAB 15: PRINT "10- QUITTER" 
670 HTAB 1: VTAB 22: INPUT "VOTRE CHOIX :";RS 

675 R = VAL tm)i IF R < 1 OR R > 10 THEN PRINT CHP* GOTO 670 

680 HOME : ON R GOTO 685 , 690 , 695 . 700 . 705 . 710 ( 71 5 , 720 f 725 , 730 0D2D 

685 HOME : GOTO 935 

690 VTAB 2: INVERSE : PRINT "AURI CULAI RE" :KK = 0:K = 40: GOSUB 175: GOTO 4 
30 

695 VTAB 2: INVERSE : PRINT "ANNULA IRE" :KK ■ 41 :K = 70: GOSUB 175: GOTO 43 

754? 
700 VTAB 2; INVERSE i PRINT "MAJEURE i KK = 71 :K = 110: GOSUB 175: GOTO 430 
705 VTAB 2: INVERSE : PRINT " INDEX 1 ' : KK - UliK = 160: GOSUB 175: GOTO 430 
710 GOSUB 245:KK = 1 61 : K = 220: GOTO 430 
715 HOME : GOSUB 360: GOTO 510 

720 HOME : GOSUB 360: GOTO 560 BD?A 
725 HOME : GOSUB 360: GOTO 615 

730 HOME : VTAB 12: PRINT CHR$ (7):: PRINT "CONFIRMATION < Q/N > : " : : GET R$ 

: IF R* < > "0" AND R* < > "N" THEN 730 5CB8 
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735 
740 

745 
750 
755 
760 
765 
770 
775 

780 
785 

790 
795 



IF R$ = "N" THEN 155 

HOME ! VTAB 22: PRINT "(APPLESOFT (M)ENU 0E DISQUETTE ";: GET R$: IF 
R* = 'A" OR R% = "a" THEN HOME : END 

IF RS = W M* OR R$ = "m* THEN PRINT CHRt ■:4)"RUN STARTUP" 

GOTO 740 

■ 
■ 

REM * N - 5 * 

■ 

• 

DATA 38 , 1 23 , 97 , 11 3 , 11 9 , 60 , 32 , 45 , 4 1 , 1 1 2 , 94 , 36 , 1 9 , 1 24 , 96 , 61 
DATA 119,60,97,112,38,94,60,45,61 ,124,123,41 ,36,124, 113, 123, 11 9, 45, 38, 
61 ,60,94,97,1 13,3 19 
REM * N" 4 * 

DATA 34,122,115,120,64,111 ,108,58,115,64,122,108,111 ,34,58,120,111 ,122 
, 34 , 64 , 58 , 1 1 5 , 1 1 1 , 1 08 , 1 22 , 1 20 , 1 8 , 34 , 58 , 111 
REM * M a 3 * 

DATA 39,101 ,100,99,32,92,105,107,59,100,107,92,59,101 ,39,101 , 
"122,107,105,92,99,59,100,39,59,10 0,39,32,122,107,100,59,122,101 ,59. 
100,107,105,99,101 
REM * N*2 * 

DATA 40 , 93 , 11 4 , 1 1 6 , 1 02 f 1 3 , 11 8 , 98 , 32 , 1 25 , 33 , 1 2 1 , 1 1 7 , 1 04 , 1 06 , 1 1 , 44 
DATA 103,114,102,116,114,98, 110,32,40,114,118,125,117,102,125,104.1 18 
DATA 33,106,93,106,116,118,40,41 ,117,33,93,1 16,44,116,98,121 
REM * MAJUSCULES - N OMBRES 

DATA 49,50,65,81 ,87,62,95,91 ,42,126,80 ,35,37,77,43,51 ,90 ,83,88,48,79,7 
6,47,52,69,68,67,57,73.75,46 

DATA 52,53,82,84,70,71 ,86,66,56,55,85,89,74,72,63,78 
DATA 72,49,48,57,53,46,63,43,49,91 ,42,62,71 
DATA "Ph i 1 osoph i quement ,hyster i e" 
DATA "Querel leur ,zoologie f ? oQ" 
DATA "7,93X;hierarchie:return+. ! " 
DATA "zygomat i que ,pathet i que 
DATA "rythmi que'^wagonne t , ;+) < "sabayon" 
DATA "aBcDeFgHi JkLmNoPqRsTuVwXyZ 11 
DATA "2 i gzaguer ; you you :quinquenna1 , he 1 as 1 " 
DATA " atnl e te , queue d' aronde , asynchrone" 
DATA " 1 , 3*60 ;h i pophyse , hag i ograph i e , £ 1 
DATA " phys i que?wh i sk i , chew i ng-gum ; yach t" 
DATA " che-f-d' oeuure , j ux tapos i t i on , youghour t 1 
DATA "Grandgous i er ,qu i etait en son temps un -f i er luron," 
DATA "aimait boire sec aussi bien que n'importe quel homme qui fut ato 
rs au monde et mangeait volontiers sale." 

DATA "A cette -fin, il avait d'ordinaire une bonne reserve de jambons d 
e Mayence et de Bayonne," 

DATA "force langues de boeu-f -fumees, des andouilles en abondance , quand 

c ' eta i t la sa i son , ■ 
DATA - du boeu-f sale a la mou tarde , une quant it* de boutargues ,une provi 
sion de saucisses," 

DATA "non pas de Bologne,car il redoutait le bouillon du Lombard," 
DATA "mais de Bigore,de Longaulnay.de la Brenne et du Rouergue." 
DATA "Extrait du Gargantua de Rabelais (debut du chapitre 3:Comment Ga 
rgantua fut porte onze mois au ventre de sa mere)" 
935 INVERSE : PRINT "MODE D'EMPLOl" : NORMAL 
940 PRINT : PRINT : SPEED= 180 

945 PRINT "Avant de debu ter , ver i i i ez que la touche des majuscules n'est pa 



800 
805 
810 
815 
820 
825 

830 
835 
840 
845 
850 
855 
860 
865 
870 
875 
880 
885 
890 
895 
900 

905 

910 

915 

920 
925 



40E4 

8B7E 
549F 
F046 
003A 

003A 
E7C2 

9EBC 



BD22 



5D15 

D829 
0AB5 
381A 



58C9 
C5C4 
53F0 
2EB4 
CCB7 
A394 
9A98 
C27C 
7FA6 
842F 
0E21 
FC3C 
C548 
1D7A 
E28A 

2B9D 

BD9C 

BDE2 

073E 
5148 
73AB 

6130 
8123 
0F2A 
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s b1oqu£e" 4BE8 
950 PRINT : PRINT "la position de base des doigt* est la suiuante: Q S D F 

ft J K LM ' C395 
955 PRINT : PRINT "les majeurs doiuent se trouuer sur D et K:ces deux touc 

hes sont -faci lenient reconnai ssabl es par un leger ren-flement" 
960 PRINT : PRINT "C'est par rapport a cette position que vous devez situe 
r les 1 e t tres . Pendan t les exercices vous ne devez pas regarder le clay 
ier": PRINT DEW 
965 PRINT "Pour uous aider j'ai represent* le clavier sur 1'^cran,ce qui u 

ous facilitera 1 ' ap pren t i ssage " 
970 UTAB 24: SPEED= N B139 
975 GOSUB 405 E749 
980 FOR K = 24 TO 1 STEP - 1 F7B5 
985 HTA8 1 65C7 
990 <vTAB K: CALL - 868: NEXT 62DE 
995 SPEED= 180 2942 
1000 PRINT " II irnporte d' e-f I ec tuer chaque exercice lentement sans se souc 

ier de la Vitesse qui viendra par la suite" E794 
1005 PRINT : PRINT "Les quatre premiers exercices sont consacr^s a chacun 
des doigts:le pouce sert uniquement a appuyer sur la barre d'espaceme 
nt" 55D6 
1010 PRINT : PRINT "Une fots la position des doiqts connus,les autres exer 

cices vous permettrons de uous ant£liorer u 
1015 60SU8 405: FOR K = 1 TO 24: PRINT : NEXT : SPEED= N : GOTO 155 



connaitre et pratiquer Prolog et compatibles 



APiLOG* est un didaeticiel d'initiation 
ou fangage Prolog et a I'LA, (Intelli- 
gence Artificielfe), II s'adresse en prin- 
cipe a des lyceens et informaticiens. 

Les cours sont interact! f$ et permet- 
tent non seufement d'acquerir une 
base de connaissances, mais encore 
d'ecrire et de tester des programmes 
en Prolog. 

Les disquettes sont accompagnees 
d'une brochure qui auraif gagne a etre 
plus explicite, mais I'utilisateur peut 
heureusement se laisser guider par le 
didaeticiel. 

Reste que Prolog est un langage puis- 
sant, mais difficile. Par contre, il 
reserve a celles et a ceux qui perseve- 
reronf dans son etude, des surprises 
fort agreables ! 




p 



* Produit developpe par Softia et edite par Cedic Nathan. 



/ PACE 59 / 



/ COVRRIER DBS LECTEURS — GRAPH ISM E / 



LOUPE 



La loupe de Roland JOST, parue dons le Tremplin 
Micro n°17 m'a beaucoup interesse, mais a vrai 
dire, elle ne m'a pas totalemenf satis fait Je vous 
propose, sans aucune pretention, une "loupe" de 
mon cru, grossissant de 4 his les points d'un 
cane de 21X21. Elle est surement ameliorable, 
notamment au niveau de la vitesse,.. 

MCOlaS ROUGIEB. 



TM 



II est vrai que le programme de N. Rougier est lent, mais il a le merite d'etre 
en Basic et pourra servir de "tremplin" a d'autres fans du bon vieil Applesott. 



100 


HOME 


2F97 


105 


DIM A4C22) 


E5A0 


110 


ONERR 60TD 410 


74E5 


115 


HGR : POKE 49234.0 


F3E6 


120 


SCALE= 1: R0T= 0: HC0L0R= 3 


82CB 


125 


PRINT CHR* (21) 


A455 


130 


X = 140 :Y = BO? J = 7 


BD1 2 


135 


POKE 232,0s POKE 233.96 


1 302 


HO 


PRINT CHR* C4);"BL0A0 ST.C 






ARRE" 


726 9 


145 


PRINT CHR* <4):"BL0AD GR0 , 






AS2000 


3421 


150 


GOTO 210 


393E 


155 


IF PEEK ( - 16384) > 128 T 






HEN GOTO 165 


BF24 


160 


GOTO 155 


2D46 


165 


GET G* 


9D29 


170 


XDRAW 1 AT X.Y 


0968 


175 


IF 6* = CHR* (32) THEN 220 




180 


IF G* = "K" THEN Y = Y + 1 


83B6 


185 


IF G* = "I" THEN Y = Y - 1 


2AB5 


190 


IF G* = "L" THEN X = X + I 


69CD 


195 


IF G* = "J" THEN X = X - 1 


50CC 


200 


IF Y < OR Y > 179 THEN 1 






= 


4EBB 


205 


IF X < OR X ) 279 THEN X 






= 


77B9 


210 


XDRAW 1 AT X.Y 


096a 


215 


GOTO 165 


4347 


220 


XI = X / 7 


E6B3 


225 


HGR2 


2190 


230 


Y2 - :X2 = 


7E4F 


235 


FOR L m Y - 21 TO Y:C = XI : 






G0SUB 275 


C99A 


240 


FOR C = TO 2:PE = PEEK < 





PK + C» : GOSUB 3 1 5 ; A* C L - < 



245 
250 
255 
260 
265 
270 
275 
2B0 



285 

290 
295 
300 
305 
310 
315 
320 
325 
330 



335 
340 
345 
350 
355 
360 

365 
370 
375 



Y - 21 >> = A* + A*(L - CY - 
21 ) ) : NEXT C 
GOSUB 355 
NEXT L 
GOSUB 355 

REM ROUTINE D'ADR HGR 

A = INT <U / 8) 
LP = L - A * 8:NG = INT CA 
/ 8) S NP = A - NG * 8:PK = 4 
* NG + NP * 120 + LP * 96 
* C 

NB = INT <PK / 120) :PK = P 

K + NB * 8 

PK = PK + 8192 

RETURN 



REM DEC EN BINAI RE 
A* = "" 

FOR QW = 1 TO 8 

GHJ = 2 " (8 - QW> 

IF PE - GHJ > =0 THEN A* 

= A* ♦ "1" :PE = PE - GHJ: G 

0T0 340 

A* = A* + "0" 

NEXT 

A* = MID* <A$,2,7> 
RETURN 

1 = <L - <Y - 21)) 

IF A*<1) = "000000000000000 

000000" THEN 385 

FOR J = 21 TO 1 STEP - 1 

2 = 2 + 1 

IF MID* <A$<I) r J.l) = "1" 



1E2A 
1F4D 
97CE 
1F4D 
003A 

003A 
DD84 



6217 

5517 
ABA 2 
63B1 
003A 

003A 
EE79 
0123 
B1A1 



CED6 
D582 
F796 
63B1 
E755 

6314 
D2B1 
9370 
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THEN XDRAW 2 


AT 2 * 6,40 + 




420 


HOME ; YTAB 22: PRINT ■ (M)E 






<I * 5) 




259A 




NU <A)PPLESOFT <E)NC0RE " s: 










A3CC 




GET R* 


BBAA 


385 


Z = 




185A 


425 


IF Ri = - M* OR Rl = *m" THE 




3?0 


RETURN 




6381 




N PRINT CHR$ (4) "RUN MENU" 


80A1 


395 






003A 


430 


IF Rt = "E- OR = "e" THE 




400 
405 


REM FIN 








N RUN 


5A89 






003A 


435 


IF Ri < > "A" AND R* < > 




430 


CALL - 198: 


GET R* 


CE65 




"a" THEN 410 


3309 


415 


POKE 49236 r 


: POKE 49235,0 


D073 


440 


HOME ; TEXT 


7C5A 



N'OUBLIEZ 
PAS CES 
QUELQUES 


/T 3 9/LOUPE/ST . 


:ARRE ,A*6000 


L*0Q5D 
















6000: 


02 


00 


06 


00 


54 


00 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


961E 


6010: 


24 


24 


24 


24 


24 


24 


24 


24 


24 


24 


37 


36 


36 


36 


36 


36 


6IAD 


OCTETS 


6020: 


36 


36 


36 


36 


44 


43 


43 


43 


43 


43 


43 


43 


43 


43 


43 


43 


66FD 


POUR DRAW 


6030: 


43 


43 


43 


43 


43 


C3 


3F 


3F 


3F 


3F 


3F 


3F 


3F 


3F 


37 


36 


C077 


6040: 


36 


36 


36 


36 


36 


36 


36 


36 


27 


24 


24 


24 


24 


24 


24 


24 


3CD3 


ET XDRAW 


6050: 


24 


24 


05 


00 


2D 


25 


3F 


27 


2D 


25 


3F 


2F 


00 








0FC5 



UTILISATION : Modifiez, d'abord la ligne 145 de maniere a ce que votre LOUPE charge 
Tune de vos images (en couleurs eventuellement), Vous pourrez en selec- 
tionner un carre en utilisant les fettres I (monter), J (alter a gauche), K (descendre) et L 
aller a droite). La barre d'espace lancera la Jaupe. II est evidemment possible de remplacer 
les lettres IJKL par les fleches de I'Apple. II suffit de modifier les lignes 1 80 a 1 95. 



US DRAW et EJECTION 



QUESTION ; 



Suite d la parution dun°17de 
Tremplin Micro, je souhaiferais 
connaitre les coordonnees du 
distributee du logiciel annonce 
sous le nom de US DRAW 
(logiciel d'architecture). 
Je profile de cette 
correspondence pour vous 
demander s'il est possible, a 
I'aide d'un pefii programme (de 
preference en BASIC) sur 
I'APPLE IICS t de provoquer 
Injection d'une disquette 3,5 
de son lecteur lors d'une 
application, 

Ut# Mm (St. tntmu) 



REPONSE : 

Je crams de vous decevoir : il y a eu une coquille dans 
TM. n°17 et il fallait lire VS.DRAW (logiciel 
VersionSOFT). Frederic a cru pouvoir employer lo 
formule 'logiciel d'architecture', mais ca me semble 
inadequat, II s'agit en fait d'un logiciel de dessin 
monipulant des 'objets vectorises' que Ton peut 
deplacer a sa guise sur Tecran. Celo permet d'etablir 
des plans d'amenagement, mais (e'est ma formation V* 
d'ingenieur des Ponts et Chaussees qui res sort) ce n'est 
en rien un logiciel de conception architecturale. II en 
est parait-il sorti deux aux U.S.A., mais je n'en sais 
obsolument rien. 

Pour ejecter une disquette, vous pouvez etudier le 
programme FORMATAGE 3.5 de Joel Desnoues dans TM 
n°18. II effectue bien une ejection en finale. Je tiens 6 
vous conseiller lo plus gronde prudence car le code 
d ejection est exactement le meme que celui qui formate 
un disque dur SCSI. En cas d'erreur, bonjour les emme.... 
(j'en parle en connaissance de cause), v. taming., rw> 

— — — / PAGE 61 /—J 
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TRACE FLECHE 



PROBLEMS Nestor pourroit-il me concevoir un petit programme LM qui me per- 
mette, en 80 colonnes, de tracer un itineraire fleche utilisant fes 
caracteres souris du He (une sorte de labyrinthe dont chaque point serait une fleche 
indiquant le bon sens) ? 

REPONSE On peut voir une telle routine de cette maniere... qui reste assez elementaire, 

FONCTiONNEMENT CALL 768 avec BLOAD... ou BRUN direct. On va dans les 

quatre directions en se servant des fleches du clavier. Tou- 
tes les autres touches affichent un pave noir. La barre d'espacement efface te carac- 
tere qui vient d'etre utilise. De petites astuces permettent, en combinant recul et 
effacement, de revenir sur une erreur* Quand on atteint les limites de I'ecran, on 
affiche automatiquement un pave noir. Si vous placez un $B0 en $355, vous remplace- 
rez les fleches par le pave noir. 



31F : 


A4 


06 


LDY 


$06 


321 : 


F0 


08 


BEQ 


$0326 


323 : 


C9 


88 


CMP 


£$88 


325 : 


DC? 


04 


BNE 


S032B 


327 : 


C6 


06 


DEC 


$06 


329 : 


A9 


48 


LDA 


£$48 



300 


20 


58 


FC 


JSR 


$FC58 


303 


20 


62 


FC 


JSR 


$FC62 


306 


A9 


00 




LDA 


£$00 


308 


85 


06 




5TA 


$06 


30A 


85 


07 




STA 


$07 


30C 


2C 


10 


CO 


BIT 


$C010 ~] 


30F 


2D 


00 


CO 


LDA 


$C0O0 


312 


10 


FB 




BPL 


$030F 


314 


2C 


10 


CO 


BIT 


$C010 _ 


317 


C9 


9B 




CMP 


£$9B 


319 


F0 


55 




BEQ 


$0370 


31 B 


C9 


AO 




CMP 


£$A0 


31 D 


F0 


3A 




BEQ 


$0359 



INITIALISATION 

Efface l ecran. 

CR envoi© un retour chariot inutile. 

06 = HTAB (0 a 79 : $0 a $4F) 

07 = VTAB (0 a 23: S0 6 $17) 



ATTENTE D UNE TOUCHE 



Clavier mis a 0. Attente dune touehe, puis 
remise a du clavier. 



SI C EST ESCAPE, ON SORT 



SI C EST UN ESP ACE, SAUT 



LES QUATRE FLECHES 
Si HTAB = 0, saut. 



] 

| Si la touche est different© de ^ , saut. 

~1 Sinon HTAB = HTAB - 1 et + est mis dans 

_l I'accumulateur ($48). 
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32B 


ca 


4F 


CPY 


£$4F 


32D 


F0 


08 


EEQ 


$0337 


32F 


C9 


95 


CMP 


£$95 


331 


DO 


04 


BNE 


$0337 


333 


E6 


06 


INC 


$06 


335 


A9 


55 


LDA 


£$55 



Si HTAB = $4F (79), saut. 

Si la touche est differente de + , saut. 

Sinon HTAB = HTAB + 1 et + est mis dans 
J I'Accumulateur ($55). 



337 ; 


A4 


07 


LDY 


$07 


339 : 


F0 


08 


BEQ 


$0343 


33B : 


C9 


8B 


CMP 


£S8B 


33D : 


DO 


04 


BNE 


$0343 


33F ; 


C6 


07 


DEC 


$07 


341 : 


A9 


4B 


LDA 


£S4B 



Si VTAB = 0, saut, 

| Si la touche est differente de ♦ , saui. 

~~| Sinon VTAB = VTAB - 1 et ♦est mis dans 
J I'Accumulateur ($4B). 



343 


CO 


17 


LDY 


£$17 


345 


F0 


08 


BEQ 


$034F 


347 


C9 


8A 


CMP 


£$8A 


349 


DO 


04 


BNE 


$034F 


348 


E6 


07 


INC 


$07 


34 D 


A9 


4A 


LDA 


£$4A 



j $i VTAB = $17 (23). saut. 

| Si la touche est differente de saut. 

Sinon VTAB = VTAB + 1 et + est mis dans 
_l I'Accumulateur ($4A). 



34F : 


C9 


40 


CMP 


£$40 


351 : 


90 


04 


BCC 


$0357 


353 : 


C9 


56 


CMP 


£$56 


355 : 


90 


02 


BCC 


$0359 


357 : 


A9 


4E 


LDA 


£S4E 



Si le contenu de I'Accumulateur est plus petit 
que $40 ou plus grand que $55, on le transforme 
en $4E (pave noir), 



359 : 48 



PHA 



A EST EM PILE 



AFFICHACH 



35A 


A5 


07 




LDA 


$07 


VTAB dans A. 


35C 


20 


47 


F8 


JSR 


$F847 


GBASCALC calcule l adresse de la ligne 


35F 


A5 


06 




LDA 


$06 


HTAB dans A. 


361 


4A 






LSR 




1 Le bit de droite tombe dans la retenue et A est 


362 


B0 


03 




BCS 


$0367 _ 


J en meme temps divise par deux. 


364 


2C 


55 


CO 


BIT 


$C055 


Si retenue a 0, c'est un nombre paire... page 2, 


367 


A8 






TAY 




A dans Y, 


368 


68 






PLA 




Recuperation du caractere. 


369 


91 


26 




STA 


($26),Y 


Affichage. 


36B 


2C 


54 


CO 


BIT 


$C054 


Retour eventuel page 1 . 


36E 


80 


9C 




BRA 


$030C 


On continue. 


370 


60 






RTS 




Fin. 



BSAVE TRACE. FLECHE,A$300 L$71 
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PROGRAMMER 
FRAMEWORK ff 




LE LAN GAGE FRED 
PARL'iXCMPLE 
(parJ.-C COURBON) 

Framework II est un logicief inlegr* oux 
fonctions tres efendues. permettant de 
creer des applications tout a loif sophisti- 
quees, grace 6 son langage de program- 
motion "FRED". 

Cet ouvrage donne des le debut des ele- 
ments d'aigorithmique elementaires et defi- 
nit les concepts de base de la programmo- 
tion en FRED. II jouera un role d'autont plus 
utile que la documentation sur FRED, et 
noiamment sur so programmation, esi a peu 
pres inexistonte... d'oii les difficult** ren- 
contrees par les utilisoteurs, 

louteur donne une perl imporiante aux 
exemples d'illustrotion et suggere des exer- 
cices d'application de difficulty croissanie ei 
dont les corriges figurent en fin d ouvrage. 
Un index alphabelique de toutes les Junc- 
tions FRED synthetise ce qu'H foul savoir, 

* Notons que J. C. Courbon esi aussi 
I'ouleur de L Enseignement Assists par Ordi- 
noteur pour Framework It (228 pages el 4 
disquettes), distribue par La Commonde 
Eleclronique. 

Edition! ETROLLE&, 61, Boulevard Saint-Germain, 
75240 PARIS CEDEX 05 (24B page*. 2J0 F) 




/ 1ES LIVRES / 



INITIA HON ET MANUEL 
DE REFERENCE 
(par B. Thibavlf) 

Ce livre est scinde en quatre parties : 

— Une parfie d initiation concue de telle 
sorte qu'un lecteur meme debutant en 
in formati que pourra comprendre les 
concepts li& ou langoge MUMPS. 

— Une seconde partie, consacree a la ges 
lion des tables el des "globals", qui 
conslilue I'environnemenf base de don- 
nees de MUMPS, 

— Une troisieme pre" sen le MUMPS sous un 
aspect plus formel, sous la forme d un 
manuel de reference portant sur les pro- 
grammes les operoteurs, les common- 
des, les fonctions, les variables 
s petioles, 

— Un dernier chopitre est consacre aux 
conlrainles a respecter pour assurer une 
bonne portabilite des applications. 

L outeur, Directeur des Etudes d CERG Sante 
el representor en France du MUMPS USER'S 
GROUP! EUROPE, est a I'origine de plu 
sieurs progiciels developpes dons le 
domaine medical ovec le langage MUMPS, 

Edition* EVPTOLLES. 61. Boulevetd Solftt Germain, 
75240 PAWS CEDEX 05 (1*2 page* 250 F| 



SvperBase 

GESTION D£ DOItW EES 
MULTIFICHIERS 



■ 



Dunod 



• SUPERBASE 

GESTION DE DONNEES 
MUL TIFtCHIERS 
(par N. Boutitie, S. Durond-Gosseli/ij 

Pour une entreprise, le choix d'un togiciel de 
gestion de base de donnees revel un caroc- 
tere strotegique. SuperBase, cree par Fran- 
cois Noirot-Nerin. un des meilleurs develop- 
peurs franc ois de progiciels, et diffuse 1 par la 
compagme Computer Associates est un logi 
ciel de gestion de donnees multifichiers, 
multifenltres, integrant des fonctions de 
calcul d'^diiron, de mailing, de statistiques. 
de grophiques... 

Excellent outil de gestion de fichiers sur PC 
il repond aux besoins les plus divers dans 
I 'ent reprise ; les different* services oppre 
ciant, selon le cas, lextreme simplicity de 
manipulation et la riches se des possibility. 
Comment exploiter loutes les fonctions d'un 
tel outil ? Quels fichiers automatiser : 
clients, stocks, factures, contrats, remune- 
rations ? Quel les informations en tirer et 
sous quelle forme ? 

Autant de questions auxquelles louvrage 
de Nicolas Boutitie et Stephanie Du rand- 
Gas sel in peul repondre 
Deux disquettes regroupant tes applications 
sent propasees au lecteur en fin d ouvrage. 

Dvnod, 1967 18 x 21 192 pages brother 170 F TTC. 

DUNOD 17 rue RcmyDumoncel ft. P. 50, 75*6! 
PARIS Cwde« 14. 



WORD 3 PAR LA PRATIQUE (par Matthew Holti) 

Cet ouvrage s attache 6 couvrir la toute nouvelle version de Word. II offre non seulemenf aux neophytes les bases du troitemenl 
de texte, mais aussi aux utilisoteurs experimentes les donnees essentielles de fa micro-edition, toutes accompagne>5 d'exerci- 
ces el d'exemples pratiques destines a repondre aux veritable* besoins professionnels. L'auteur presente grodueliement cha- 
cune des commandes et chacun des menus de Word avant de proposer des applications detail lees. Chaque procedure est 
accompagnee de nombreuses illustrations 4cron et est decrite, a la fois pour le clavier et lo souris. Les annexes presenteni tou- 
tes les informations utiles pour vous aider a adapter Word a vos besoins personnels et 6 en augmenter les copocites. 

Un livre br«xh* de 576 poges, ou lormat 190 X 230, 298 F TTC SYBEX, 6-8 impa*i» di» Cere 75018 PARIS — J6\. . 42.03.95.95 
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L'un de nos lecteurs o voulu reprendre et completer un programme paru dans le numero 6 
de Trempfin Micro, programme qui permet d'imprimer de jolis codres sur IMAGE WRITER, 
avec des caracteres personnalises. Helas ! notre infortune programmeur n'obtient que te 
resultat de la cofonne de gauche... alors qu it souhaitait realiser le trace — 6 combien 
genial ! — de la cotonne de droite (pas de politique Id-dedans, rassurez-vous !). Ou est 
I'erreur ? Nous Tavons trouvee par une simple lecture du listage de notre ami. Serez-vous 
au&si perspicace ? Nestor, 



MHNBH 



LU 

a - r 

c = i 

D = 1 

E = I 

F = L 

G = _ 

H = J 

I * I 

J - t 

K = ~ 

L = T 

M = 

N = 

= 



100 GOSUB 230 

110 PRINT CHRf <27) a/ * 

120 PRINT CHRf (27) "E" 

130 PRINT CHRf <27)*>* 



140 
150 
160 
170 
180 
190 
200 

220 
230 
240 
250 

260 

270 
280 

290 



300 
310 



aatm imum 



CHRf <27)"T16" 
"ABLBC 

i p, n , n ii , ■ i h , i n 
u l t 1 » 

" ri« , « ii , n T ii i. h 
■* i i * t 



PRINT 
PRINT 



"NKJKO" 
"FGMGH" 



CHRf < 27> 
« 1 TO 15: 



<" 

PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

FOR I = 1 TO 15: PRINT CHRf C27> j CHRf (I + 64)" = 
CHRf C27)"'"f CHRf <I + 64): PRINT : NEXT 
PRINT CHRf <4) "PR£3" i END 
FOR I = 76B TO 773; READ Ci POKE I ,C: NEXT 
DATA 1 6 5 , 6 , 32 , 237 , 253 , 96 

PRINT CHRf <4>i"PR£i"! PRINT : PRINT CHRf <27)M"| CHRf 
(9) B 80N": PRINT CHRf <27)"Z" 

FOR I = I TO 155s READ C: POKE 6,Ci CALL 768: NEXT : PRINT 
RETURN 

DATA 27,43,27,73,65,72,255,1 ,1,1,1,1 ,1,1,66,72,1,1,1,1,1 
,1,1 ,1 ,67,72,1,1 ,1 ,1,1 ,1 ,1 ,255,68,72,255,0,0,0,0,0,0 

DATA 0,69,72,0,0,0,0,0,0,0,255,70,72,255,128,128,128,128 
,128,128,128,71,72,128,128,128,128,128,128,128,128,72,72,1 
28,128,128,128,128,128,128,255 

DATA 73,72,0,0,0,0,255,0,0,0,74,72,8,8,8,8,255,8,8,8,75, 
72,8,8,8,8,8,8,8,8,76,72,1 ,1 ,1 ,1 ,255,1 ,1 ,1,1 

DATA 77,72,128,128,128,128,255,128,3 28,128,78,72,255,8,8 
,8,8,8,8,8,79,72,8,8,8,8,8,8,8,255,8 



C 
D 
E 
F 

s 

H 
! 

J 
K 
L 

M 

N 





= r 
— 

= i 
= i 

= L 

■ J 
= I 
- + 

= T 

= 1 
= h 



A propos du langage machine — — — — — — — 

Nous n'avons pas I'habitude de publier les passages laudatifs de nos correspondents, 
mais il nous paraTt interessant de reproduire ces quelques lignes : 

J'avoue avoir longtemps H6sit4 avant de suivre les conseils de TREMPUN MICRO ; appren- 
dre d parler a mon Apple d trovers le langage machine. Je n'y comprenais vraiment rien 
et j'e'tais (je le suis encore) nul en anglais. It aura fallu une lettre personnelfe du cher NES- 
TOR (merci encore !) pour que je me decide enfin 6 (aire le grand saut (ou le grand 
SOT ?). Je m'en felicite. Jamais je ne m'etais autant regale t J'ai consomme', fun apres 
I'autre, vos recueils de Routines LM, puis je me suis mis a remplacer, dans mes program- 
mes en Basic, des trues qui se trainaient. Miracle ! e'est plus performani que du Basic 
compil4. . , alors merci encore et meilleurs vceux pour 1 988 ! j c. ^.w/uj. 
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• INTRODUCTION 
A POSTSCRIPT 
(par David A. Holzgang) 

PoslScript, langage de description de 
page. □ ele concu par Adobe Systems Inc. 
comme un langage d usage general com- 
portant en particulier de nombreux op6- 
raleurs graphiques. II peut done etre uti- 
lise pour lo program mat ion. Get ouvrage 
en exptique la structure el I utilisation. 

— La premiere partie presente le lan- 
gage et decrit lo facon de "penser en 
PostScript". 

— Lo seconde partie presente la struc- 
ture el les principes qui ont guide la 
realisation de cet ouvrage, Elle pre- 
cise les objectifs que le lecteur pourra 
se fixer avont d'aborder I'etude du 
langage. 

L'une des forces de PostScript est qu'il 
permet de produire des pages imprimees 
comportant a la fois des graphiques et du 
texte. II possede aussi des operaleurs qui 
controlent, avec une precision jamais 
encore egalee, lo montere dont les textes 
ou les graphiques sont imprimes. 

L'auteur aide I utilisateur . tout au long du 
livre, 6 dechiftrer un progromme inter- 
preter integre a un peripherique d'im- 
pression, en lui expliquont ses concepts 
fondamentaux. II expose aussi I'utilisa* 
tion de I'interpreteur dans divers modes 
d'operation et I'ecriture de programmes 
en PostScript. Ce livre suit une progres- 
sion struct uree afin de faciliter I'appren- 
lissage. II oHre de nombreux exercices 
de com plexites diverses. 

Un Imc broche au loTmal i» • :j. it 516 pages. 348 F TTC 
SYIK. 6-8 impasse du Cure 7S0IB PARIS - Tel. 43.03 95 95 
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• IBM PS/2 
Structures et 
domaines d 'application 
(par Jim Ho skins) 



Les Systemes Personnels/2 constituent la 
seconde generation des micro-ordinoteurs 
d'IBM. lis oHreni de meilleures performan- 
ces et des fondionnolites accrues, tout en 
conservanf un haut degre de compatibility 
avec les programmes ecriis pour lo gomme 
PC Ce livre, redige par un membre de 
I'equipe de developpement, est te premier 
paru sur ce sujet aux Etots-Unis. II a pour 
objectif d'aider les utilisateurs profession- 
als a choisir en connaissance de cause la 
configuration qui conviendra le mieux a leur 
entreprise, qu'ils soieni aduetlement pour- 
vus de PC ou qu'ils souhaiienf developper 
leur systeme informotique diredement avec 
des PS/2. 

L'auteur leur presente done les nouveoux 
produits IBM PS/2 (surtout les modeles 50, 
60 et 80, le modele 30, beoucoup plus pro- 
che de la gam me PC, faisant lobjet dune 
description ropide) en comparant leurs 
caracteristiques a celles de la generation 
precedente des IBM PC. II les guide ensuite, 
au moyen d'une session en "temps reel", d 
trovers la decouverle des programmes 
livrei ovec la machine et des peripheriques 
qui lui sont associes. II enumere les diverses 
applications deja disponibles sur ces syste- 
mes, ainsi que les possibilites de mise en 
reseau. II examine ensuile trois eludes de 
cos, melton t en scene une petite en I rep rise, 
un© societe de grandeur moyenne el enfin 
une grande organisation, pour bten mettre 
en lumiere quelle configuration et quelles 
carocteristiques sont a recommander dans 
choque situation. 

Reliure soopl*. ISO X 3*0 KB pages 240 FHC. 
Mrrfdhlaw. B? avenue du Maine 7501 4 PARIS - Id S3 27 74 SO 




• INTRODUCTION 
A TURBO C 
(par Michel Laurent) 

Ce nouvel ouvrage propose oux non- 
inities de decouvrir le langage C a tro- 
vers le Turbo C de Borlond. Le Tur- 
bo C leur offre, en etfet, toute la puis- 
sance de C alliee a une interface utiliso- 
teur particulierement conviviale. C'est 
done 16 I'outil qui fero sortir te langa- 
ge C du cercle restreint des program- 
mers specialises. 

L'auteur, Michel Laurent, chercheur au 
CNRS et specialiste de C . a surlout sou- 
hoi te s'odresser oux progrommeurs fami- 
liarises avec d'autres langages tels le 
Basic et le Pascal. II leur donne la possibi- 
lity d'atteindre un niveau stiff isont de 
connaissances pour creer leurs propres 
applications en Turbo C . 
II s'est attache a presenter, de maniere 
concise, I'environnement de developpe- 
ment de Turbo C avant de decrire les 
concepts essentiels du langage : fonc- 
tions, classe et portee des variables, 
pointeurs, structures etc. Chocune des 
notions proposees est traitee a portir 
d'exemples simples permertant de con- 
cretiser choque element du langage. 
En fin d ouvrage, l'auteur presente une 
application elaboree mettanl en pratique 
I'ensemble des concepts enonces 
prealoblemenl. 

C i repute langage "difficile", se met, grace 
a eel ouvrage particulierement didactique, a 
lo portee des debutants. Ce livre est aussi 
un complement ideal 6 lo documentation 
livree avec le compilateur. 

Un livre broth* aw iormai 190 x 230, de 4$S pages 248 F flC. 
imt. fr-B •mpasu du Cure 75018 PARIS.— Te4 42.03.94 95 
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TURBO PROLOG 

et I intelligence artificielle 



Un nouvel ouvrage sur Prolog vient de parattre aux 
Editions Eyrolies. C'est une introduction au langage 
Prolog, mais dons so version Turbo* de Borland. II 
est presente comme un cours et c'est effectivement 
la synthese d'un enseignement dispense aux etu- 
diants du DESS (Dipldme d'Etudes Superieures Spe- 
cialis6es) de Lille, option Intelligence Artificielle et 
Genie Logiciel. 

L'auteur esl Jean-Paul Delahaye. II a deja commis plusieurs 
livres sur I'f. A. ei les systemes experts. Cest assurement 
un specialists, mais egolement un pedagogue. J ar etudie, 
pour le plots t r , le chapitre 8 de son bouquin. II est consacre 
6 la resolution d'une enigme policiere. Les jeunes lecteurs 
de T.M. diraient que c'est genial ! Pourquoi pas ? 

Turbo Prolog existe sur PC et compatibles. II doit meme exis- 
ter r si je ne m'abuse, un TURBO PROLOG TOOLBOX, mais je 
ne I'ai pas teste. Par contre, je me suis deja amuse avec 
Turbo Prolog et je suis d'occord avec Jean-Paul Delahaye 
pour dire que Prolog est un langage puissant, mais tres diffe- 
rent des autres. Avec Prolog, la priorite est donnee a une 
logique, dont I organisation n'est pas evidente. C'est un 
aspect qui est particulierement bien traite dans le cours de 
J. -P. Delahaye. 

On peut en conseiller Tetude aux auteurs de jeux de logique. 
Gageons qu'ils y puiseront non seulement des idees de pro- 
grammes originaux, mais aussi une logique 6 toute epreuve ! 

Parmi les themes abordes dans les programmes (nombreux). 
on trouve : le raisonnement logique en chatnage arriere, les 
bases de donnees, les manipulations de listes, ('utilisation 
de la memoire dynamique, les recherches arborescentes, 
etc. Des exercices terminent chaque chapitre. Les plus inte- 
ressonts et les plus difficiles sont corriges. Un regret : il 
n'existe pas, semble-t-il, de disquette d'accompagnement, ce 
qui est dommage... encore que, pedagogiquement porlant, il 
salt sans doute souhaitable de retaper chaque exercice en 
essayant d'en cornprendre les tenants et aboutissants. c. *. 

' Je me souviens avoir remarque, parmi les exempies fournis par Turbo Prolog, une 
routine de ensure fort interessante pouvant rendre d'inestimabfes services 6 un 
programmeur desirant concevoir un petit troitement de teste personnel. 




Editions EYROllES — 61. Boulevard Soint-Cermain 
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TRIUMPH ABLER ST 
OLYMPIA 
CHOISISSENT SPRINT 

BORLAND INTERNATIONAL et la societe 
TRIUMPH ADLER viennent de signer un 
central bundle portant sur la livraison de 
SPRINT en standard sur VSP 500. 
BORLAND INTERNATIONAL a egalement 
passe un accord de distribution avec la 
societe OLYMPIA. SPRINT figure desor- 
mais en bonne place au catalogue des 
produits distribues par OLYMPIA. 

Avec plus de 14 000 exemplaires vendus 
en moins de trois mois. SPRINT s'est 
impost comme un nouveau standard de 
iroitement de texte. 

Les dictionnaires americains, anglais et 
espagnol de SPRINT sont d ores et deja 
disponibles, et les dictionnaires de 
synonymes americains et francais le 
seront prochainement. 

Le "kit du programmeur", disponibfe vers 
le milieu du premier trimestre 88, permet- 
tra de prendre avantage des multiples 
copocites de programmation de SPRINT, 
tant au niveau de l interface utilisateur que 
de I'impression. ■ 
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PRIX UNITAIRE 


TOTAL 




Abonnement a 6 num6ros (un an) : FRANCE 

fa parllr du numira 1 


190 F 






Abonnement a 6 disquettes (un an) : FRANCE 

6 portl r du numtro - 


GOO F 






M1NIE 

LE BUREAU DE MINIE 

LES SOURCES DU BUREAU _ 


Logiciels 

de Claude AUBRY 


ISO F 




ISO F 




SO F 






LIVRE : APPLE II PRODOS, GUIDE DU PROGRAMMEUR APPLESOFT 


1 20 F 






LIVRE : LE 6502 PAS a PAS 


1 20 F 






LIVRE + DISQUETTE : CLINS D'CEIL AU 6502 


1GO F 






LIVRE + DISQUETTE s ROUTINES LAA POUR 65CG2 ET 6502 


T€»0 F 






LIVRE + DISQUETTE ; NOUVELLES ROUTINES POUR LE 65C02 


160 F 






UVRE + DISQUETTE : PROGRAMMES LM 65CQ2 & 65CB16 


160 F 






LIVRE + DISQUETTE s A LA DECOUVERTE DU GS BASIC 


300 F 






DISQUETTE DE JEU WAR 


20 F 







DISQUETTE DE JEU "L* Monde do* Sorcten" 


20 F 






DISQUETTE N°18 + |eu "Lo Monde do* Sorclers" 


105 F 






DISQUETTE -INDEX (N°l 6 12) 


30 F 






SIGNATURE (CHECK-LIST) 


30 F 






RELIURE-ECRIN 


40 F 






DISQUETTE DE TREMPLIN MICRO : * (He, He. CS) 

□ N°l □ N e 4 □ N 6 7 nN a IO □ N°I3 □ N°16 □ N»I9 

□ N«2 nN°5 □ N°8 □ N°ll □ N°14 □ N a 17 

□ N c 3 □ N°6 □ N*9 !□ N°12 □ N fl 15 □ K*18 


105 F 






NUMEROS DE DN a l C N°2 O N°3 □ N°4 □ N B 5 C N°6 
TREMPLIN MICRO : ' UW7 □ N°8 □ N e 9 □ N'lO □ N°n □ N°12 
□ N*13 □ N°U nN°15 □ N"16 □ N°17 □ N<MB □ N°19 


30 F 




33 F 





■ Cochal la (au imt) to»»(*} da voire choix 

Participation aux frail denvol (gratuit pour lei abonnes) + 10 F 

Mercl di libeller wtr* reglwntnt & lerdr* Envoi en poquet-poite recommande a parti r do 400 F 

de TREMPLIN MICRO / Editioni iliENA. ... . . , T oto l 1 n(S vftr F 

Numero d abonn* ou de client ; IOTCII a payer ' 



Mode de regiment cholil : 

□ Cheque 

□ Mandat-lettre 

□ Carte Bleue k*np**f« 6-conir«) 

— / PAGE es / 




M° d« v«tr* Cert* Rl«u« I — L 
Dot* d'expfretlon I I I I 
Montanf a d*bit#r . 



I »» 1 I 1 II 

Signature (obligotoir*) 



Chaque mois 
le meilleur 
de la I 
technique / 
et de la / 
pratique 

photo ! / 




Chez votre 
marchand de journaux ! 



